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** EXTRA ** 



40 pagina’s Efficiency 
Beurs ’89 Nieuws. 

De belangrijkste computerbeurs 
van de Lage Landen barst aan het 
eind van deze maand weer los. In 
dit extra hart-magazine 40 pagina 's 
informatie en het laatste nieuws 
over deze grote najaarsbeurs. 

Voste Rubrieken 

Basic Miniatuurtjes 24 

Strip in EB Special 


Er is de laatste tijd een trend om spelletjes op de computer als iets voor 
kinderen te beschouwen. Serieuze software, liefst op een MS-DOS PC, dat 
is waar iedereen achteraan holt. Vrijwel alle bladen richten zich op die markt, 
men praat over OS/2 en over steeds snellere PC’s met nu al weer de 80486 
processor. Zelfs de winkelketens volgen deze trend. Gameworld, toch groot 
geworden in de C-64 golf, gaat haar naam nu wijzigen in MEGAWORLD. Men 
wil blijkbaar geen spelletjes-image meer uitstralen. 

Dat vind ik eigenlijk wat arrogant, want spelletjes zijn zeker niet minderwaar¬ 
dig. Met name de verschillende Commodore machines, de C-64 voorop, heb¬ 
ben de computer-speicultuur doen ontstaan. De kwaliteit van een C-64 spel 
doet zeker niet onder voor een PC- spel en de Amiga slaat de PC met leng¬ 
tes, zowel in beeld als geluid. Er is wel degelijk behoefte aan een goede 
spel/video/audio machine, met een serieus accent, en de Commodores zijn 
daarvan het duidelijkste bewijs. 


Luc Sala 
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Met enige regelmaat komt er opeens een spel uit, dat van uitstekende kwaliteit is. 
Operation Neptune is een onderwaterspel van Infogrames, dat de moeite van het 
bestuderen waard is. 


Strijd op de zeebodem 

Operation Neptune: spel met fraaie schermbeelden 


nfogrames staat al enige tijd bekend als een eerste klas softwarehuis. Niet 
alleen voor de kwaliteit van het spel, maar ook wegens hun originaliteit. 
Vanaf volgende week kan ook de Commodore 64 versie van Operation 
Neptune op deze lijst gezet worden. 


In dit spel neem je de rol van Bob Mo- 
rane op je, in een strijd tegen de gele 
schaduw. Dit doe je in een 1-mans 
onderzeeër, uitgerust met de modern¬ 
ste techniek en state-of-the-art bewa¬ 
pening. Om de gele schaduw ervan te 
weerhouden dat hij zijn macht ver¬ 
spreidt, zul je alle onderwaterstations 
van hem moeten vernietigen. Dit is op 
twee manieren mogelijk. De eerste is 
het beveiligingsschild vernietigen met 
de kanonnen aan boord van de on¬ 
derzeer. De tweede manier is er voor 
te zorgen dat de basis geen energie 
meer ontvangt. Als de basis geen 
kracht meer heeft, zal ze zichzelf 
automatisch vernietigen. Om deze 
handeling succesvol te volbrengen 
zul je, gewapend met een harpoen, 
mijnen en een aqualong, naar zo’n 
energieaansluiting moeten zwem¬ 
men, alwaar de mijn geplaatst kan 
worden. Hierbij is het wel noodzake¬ 
lijk dat je de kikvosmannen van de 
gele schaduw demotiveerd en natuur¬ 
lijke bewoners zoals haaien en inkvis- 
sen ontwijkt. 

Geen patroon 

De basis van de vijand wordt ook be¬ 
veiligd door vechters en monteurs, 
beiden voorzien van gewapende on- 
derwaterjets. Deze kunnen en zullen 
je te allen tijde proberen te vernieti¬ 
gen, dus zal je ze moeten ontlopen, of 
ze met je eigen jet moeten afschieten. 
Nu moet je niet denken dat ze volgens 
een bepaald patroon varen, niets is 
minder waar. Als je door de vijand ge¬ 
signaleerd wordt zal deze zijn koers 
veranderen en de jacht op je openen. 
Als je kracht- of zuurstoflijn het nul¬ 
punt bereikt, ben je dood, dus dien je 
er voor te zorgen dat je op tijd bij een 
thuisbasis bent om supplies in te ne¬ 
men. Hier kun je ook meteen je voor¬ 



Op de bodem van de zee... 


raad mijnen aanvullen. Als alles ver¬ 
nietigd is kan je gerust boven water 
komen en een moeilijker level probe¬ 
ren. 

fatastische dimensie 


Beoordeling: 

spel : 90 

geluid : 90 

kwaliteit: 90 
Totaal: 90 


Ik merkte dat het easy 
level een goede me¬ 
thode is om alle op- 
tie’s met een redelijke 
tegenstand te testen, 
zodat het geheel inte¬ 
ressant blijft. Het spel 
in combinatie met de 
muziek maakt het een 
voortreffelijk spel. De 
vertraagde beweging 
die je onder water er¬ 
vaart geeft het geheel 
een fantastische di¬ 
mensie. 
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In deze Tips & Trucs besteden Hylke Sprangers en Michel de Boer uitgebreide 
aandacht aan de drie logische operatoren en de daarmee verwante boolean expres¬ 
sies. Verder nog een tip over de USR-functie. 

Tips & Trucs 64 

L ezers worden van harte uitgenodigd om hun eigen Tips & Trucs in te 
sturen. Maar ook uw vragen of opmerkingen kunt u sturen naar Commo¬ 
dore Info, Postbus 43048, 1009 ZA Amsterdam onder vermelding van Tips 
& Trucs 64. 



Logische operatoren 

De Commodore 64 kent de drie logi¬ 
sche operatoren AND, OR en NOT. 
We zullen hieronder uitleggen hoe 
met deze operatoren gewerkt kan 
worden. Met deze drie operatoren 
kunnen we twee kanten op. Dit hangt 
weer af van de aard van de operan- 
den die meegegeven worden aan de 
operator. Een operand is een gege¬ 
ven dat wordt meegegeven aan de 
operator. De operator voert dan ver¬ 
volgens een bewerking op of met de 
operand uit. We maken onderscheid 
tussen een getal als operand en een 
expressie als operand. We zullen 
eerst het geval van een getal als ope¬ 
rand behandelen. 

Met de AND en OR operator kunnen 
twee getallen met elkaar vergeleken 
worden. De uitkomst van deze verge¬ 
lijking is ook weer een getal. De ver¬ 
gelijking van de twee getallen gebeurt 
op bit niveau. Elk getal is opgebouwd 
uit bits, zoals u weet. De twee getal¬ 
len worden nu bit voor bit met elkaar 
vergeleken. De uitkomst van een bit- 
vergelijking wordt bepaald door de 
waarheidstabellen van AND en OR. 
Deze twee tabellen staan in figuur 1. 
Bij een vergelijking van twee bits door 
middel van AND, is de uitkomst alleen 
een 1, als beide bits een 1 bevatten. 
Bij OR is de uitkomst een 1, als min¬ 
stens een van beide bits een 1 bevat. 
Hier komt een voorbeeldje. 

getal 1: 170 10 10 10 10 
getal 2: 204 1 1 0 0 1 1 0 0 AND 


uitkomst 136 1 0 0 0 1 0 0 0 

getal 1: 170 10 10 10 10 
getal 2: 204 1 1 0 0 1 1 0 0 OR 


uitkomst: 238 1 1 1 0 1 1 1 0 

In bovenstaand voorbeeld hebben we 
voor een 8-bit represenentatie geko¬ 
zen, voor de getallen. In Basic kunt u 


operanden aan AND, OR en NOT 
meegeven, die tussen -32768 en 
32767. De NOT operator heeft in te¬ 
genstelling tot AND en OR slechts 
een operand nodig. De waarheidsta- 
bel van NOT staat ook in figuur 1. U 
kunt zien dat elk bit dat aan staat, met 
NOT uitgezet wordt, en dat elk bit dat 
uitstaat aangezet wordt. Ook hiervan 
een voorbeeldje. 

getal 1: 170 10 10 10 10 NOT 


uitkomst: 85 0 1 0 1 0 1 0 1 

We zeggen dat de NOT-operator een 
getal inverteert. Bij een acht-bits getal 
is de uitkomst gelijk aan 255 - getal. U 
kunt dit ook in het voorbeeld zien: 255 
- 170 = 85. De AND en OR operator 
worden vaak gebruikt om bepaalde 
bits van geheugenadressen aan of uit 
te zetten. Met AND kunnen bits mak¬ 
kelijk worden uitgezet, en met OR 
weer makkelijk aan. 

Boolean expressies 

We hebben nu gezien hoe we de logi¬ 
sche operatoren kunnen gebruiken 
met getallen als operanden. We gaan 


nu kijken naar het geval als de opera¬ 
toren expressies als operanden heb¬ 
ben. Wat een expressie is, kan het 
beste duidelijk worden gemaakt aan 
de hand van een voorbeeld. 

a = b 
8 > 9 
a <> 6 

De bovenstaande regels bevatten al¬ 
lemaal expressies. We kunnen een 
expressie het best omschrijven als 
een relationele vergelijking tussen 
twee of meer constanten of variabe¬ 
len. Een expressie kan per definitie 
waar (TRUE) of onwaar (FALSE) zijn. 
De tweede expressie bijvoorbeeld 
(8>9) is FALSE. De eerste expressie 
(a=b) is alleen TRUE als de variabele 
a in waarde gelijk is aan variabele b. 
Bovenstaande expressies worden 
ook wel Boolean expressies ge¬ 
noemd, naar de briljante Engelse wis¬ 
kundige George Boole (1815-1864). 
Met zijn Boolse algebra, waarin de 
AND, OR en NOT operatoren de ba¬ 
sis vormen, wordt hij wel als de grond¬ 
legger van de wiskundige logica be¬ 
schouwd. We weten dus nu dat een 
expressie altijd of TRUE of FALSE is. 
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Nu vergelijken we twee expressies 
met elkaar door middel van AND of 
OR. Ook nu kunnen we de waarheid- 
tabellen in figuur 1 gebruiken. Overal 
waar een 1 staat, denken we aan 
TRUE en overal waar een 0 staat, 
denken we aan FALSE. Zo levert een 
vergelijking tussen twee expressie 
door middel van AND alleen TRUE 
op, als de twee expressie zelf ook 
TRUE zijn. Voor de rest zal de uit¬ 
komst FALSE zijn. Bij OR moet ten¬ 
minste een van de twee expressies 
TRUE zijn, wil de uitkomst TRUE zijn. 
Anders is de uitkomst FALSE. 
Tenslotte maakt NOT van een ware 
expressie een onware expressie, en 
van een onware expressie een ware. 
We vinden een directe toepas¬ 
sing van deze theorie bij de IF 
statements. Het IF statement 
test een expressie. Als de ex¬ 
pressie TRUE oplevert, wordt 
het gedeelte na de THEN uitge¬ 
voerd. Levert de expressie FAL¬ 
SE op, dan wordt het THEN-ge- 
deelte gewoon overgeslagen. 

Met de AND en OR operator 
kunnen we nu hele expressies 
aan elkaar koppelen, en samen 
in een IF zetten. Een voorbeeld 
hiervan is: 

IF (a>b) AND (a>c) THEN ... 

U ziet dat er in een IF statement 
tegelijk op twee condities wordt 
getest. In het bovenstaande 
voorbeeld wordt het THEN ge¬ 
deelte slechts uitgevoerd, als 
beide expressies waar zijn. Be¬ 
kijk nu het volgende voorbeeld 
eens. 

IF (a>b) AND (a>c) OR (b>c) THEN ... 

Er zijn nu maar liefst drie expressies 
aan elkaar gekoppeld met AND en 
OR. Maar wanneer wordt nu het 
THEN gedeelte uitgevoerd? Wel, de 
operator AND heeft een hogere prio¬ 
riteit dan OR. De computer kijkt dus 
eerst naar de expressie (a>b) AND 
(a>c) en bepaalt wat van deze verge¬ 
lijking de uitkomst is (TRUE of FAL¬ 
SE). Daarna vergelijkt de computer 
deze verkregen uitkomst door middel 
van OR met de expressie (b>c). Het 
THEN gedeelte wordt uitgevoerd als 
een van de twee expressies (a>b) 
AND (a>c) of (b>c) TRUE oplevert. 
Van de drie operatoren heeft NOT de 
hoogste prioriteit, daarna AND, en 
OR heeft de laagste prioriteit. De ex¬ 
pressie 

(a>b) AND NOT (a>c) 


wordt dan ook als volgt behandeld: 
eerst kijkt de computer naar NOT 
(a>c). Deze expressie is hetzelfde als 
(a<=c). Wat we overhouden is dus het 
volgende: (a>b) AND (a<=c). 

Door haakjes te gebruiken, kunnen 
kan men de prioriteiten veranderen, 
omdat de gedeelten tussen haakjes 
als eerste worden berekend. 

Getallen als expressies 

We hebben het nu gehad over getal¬ 
len en expressies als operanden. Een 
expressie is altijd TRUE of FALSE. 
De computer kan ook een getal op 
zichzelf, bijvoorbeeld het getal 42, als 
een expressie beschouwen. Daarbij 


wordt nul als FALSE en elk ander ge¬ 
tal als TRUE beschouwd. Bekijk het 
volgende statement eens: 

IF 42 THEN ... 

Omdat de computer hier 42 als TRUE 
beschowt, wordt het THEN-gedeelte 
altijd uitgevoerd. Bij het volgende sta¬ 
tement ligt dit echter anders. 

IF 42 AND 213 THEN ... 

De vergelijking 42 AND 213 levert 0 
op. De computer beschouwt 0 als 
FALSE, en dus wordt het THEN ge¬ 
deelte niet uitgevoerd. We hebben 
opgemerkt dat de computer 0 als 
FALSE en de rest van de getallen als 
TRUE interpreteert. Dit klopt in het 
geval als de computer een getal krijgt 
aangeboden als expressie. Dit getal 
moet worden geïnterpreteerd als 
TRUE of als FALSE. In dit geval is 0 
FALSE en de rest van de getallen 
TRUE. Het ligt anders als de compu¬ 



ter een expressie heeft (TRUE of 
FALSE), die als waarde moet worden 
geïnterpreteerd. Tikt u het volgende 
maar eens in op de computer: 

PRINT (1=2) 

De expressie (1=2) levert uiteraard 
FALSE op. Er staat dus als het ware 
PRINT FALSE. De computer zal een 
nul printen, niets vreemds dus. Bij 
een expressie die TRUE is, zal de 
computer echter -1 op het beeld¬ 
scherm printen. 

PRINT (1<2) 

Op bovenstaand voorbeeld zal de 
computer antwoorden met -1. 

Foutje 

In het stukje ‘sys met parame¬ 
ters’ uit de vorige aflevering heb¬ 
ben we helaas een foutje ge¬ 
maakt. Het meegeven van nu¬ 
merieke parameters werkt per¬ 
fect op de manier zoals wij die 
beschreven hebben. De fout zit 
echter in het meegeven van 
string parameters. Het blijkt na¬ 
melijk dat de computer soms een 
FORMULA TOO COMPLEX ER- 
ROR geeft of een verkeerde 
string inleest. We hebben vorige 
keer gezegd dat string parame¬ 
ters met de ROM routine op 
adres $AD9E konden worden in¬ 
gelezen. Deze routine zou er dan 
voor zorgen dat het beginadres 
van de string in de adressen 
$22/$23 komt te staan en dat 
achter de string een 0 wordt ge¬ 
zet, zodat het einde van de string 
te bepalen is. Dit is ten dele 
waar. De ROM-routine op 
$AD9E leest namelijk wel een string 
parameter in, maar de string wordt 
daarbij opgeslagen in een speciale 
stack (stapelgeheugen) voor strings. 
Nadat een aantal sthng-parameters 
met $AD9E is ingelezen, stroomt de 
stack over en wordt een FORMULA 
TOO COMPLEX ERROR gegeven. 
Om dit probleem op te losspn moet 
direct na de aanroep van de routine 
op $AD9E, de routine op $B6A6 wor¬ 
den aangeroepen. Deze laatste routi¬ 
ne zorgt ervoor dat de stack steeds 
wordt schoongemaakt. Het begin¬ 
adres staat dan gewoon in $22/$23. 
Alleen wordt nu niet achter de string 
een nul geplaatst, maar staat in de ac¬ 
cumulator de lengte van de string. Sa¬ 
mengevat kan een string-parameter 
als volgt worden ingelezen: 


jsr $ad9e 
jsr $b6a6 


;Lees string in 


Na deze twee instructies bevat de ac¬ 
cumulator de lengte van de string en 
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staat het beginadres van de string in 
de adressen $22/$23. Bij een routine 
met 1 string-parameter is het voldoen¬ 
de om de lengte en het startadres van 
de string te bewaren voor latere ver¬ 
werking. Als u echter twee of meer 
string-parameters wilt inlezen, is het 
niet voldoende om alleen de lengtes 
en de startadressen van de strings te 
bewaren. Bij het inlezen van een 
tweede string-parameter zet de com¬ 
puter de string namelijk over de vorige 
string parameter heen, waardoor u 
deze kwijt bent. Om dit te voorkomen, 
moet u na het inlezen van een string- 
parameter de hele string naar een an¬ 
der stuk geheugen verplaatsen (bij¬ 
voorbeeld achter het programma). 
Numerieke parameters kunnen 
gewoon op de manier, zoals die 
in de vorige aflevering beschre¬ 
ven is, worden ingelezen. Hie¬ 
ronder volgt de verbeterde lis- 
ting om een string op een be¬ 
paalde plaats op het scherm af 
te drukken. Bekijk de vorige af¬ 
levering voor een beschrijving 
van deze routine. 


LABELS, MNEMONICS; COMMEN¬ 
TAAR 


De USR instructie 

In de vorige aflevering van Tips & 
Trucs hebben we een methode be¬ 
handeld waarmee, via de SYS in¬ 
structie, parameters aan een machi¬ 
netaal routine kunnen worden mee¬ 
gegeven. Met deze methode was het 
mogelijk om een routine te schrijven 
die een meegegeven string op een 
meegegeven plaats op het scherm 
zet. Bij deze routine worden alleen 
waarden vanuit BASIC aan machine¬ 
taal doorgegeven. Er bestaan echter 
ook routines die een bewerking op de 
meegegeven parameters uitvoeren 
en de uitkomst vervolgens retourne¬ 
ren aan het BASIC-programma. Er 


skip komma 
lees string 

;bewaar string- 

;bewaar starta- 


;skip komma 
;lees regelnr 

;skip komma 
;lees kolomnr 


jsr $aefd ; 
jsr $ad9e ; 
jsr $b6a6 
sta lengte 
lengte 

Ida $22 

dres 

sta $fb 
Ida $23 
sta $fc 
jsr $aefd 
jsr $b79e 
stx regel 
jsr $aefd 
jsr $ad9e 
jsr $b7f7 
sty kolom 
Idx regel 
Idy kolom 

jsr $fffO 
Idy #$00 
lus Ida ($fb),y 
jsr $ffd2 
iny 

cpy lengte 
bne lus 
rts 

regel .byt 0 
kolom .byt 0 
lengte .byt 0 


Onze excuses voor de gemaakte fout. 


positioneer cursor 

;druk string af 
;druk 1 karakter af 


worden dus niet alleen waarden van¬ 
uit BASIC aan machinetaal doorgege¬ 
ven maar ook vanuit machinetaal aan 
BASIC. Dergelijke routines worden 
functies genoemd. Een voorbeeld van 
een functie, die standaard in de Com¬ 
modore aanwezig is, is de SQR in¬ 
structie; deze functie trekt de wortel 
uit een meegeven parameter en re¬ 
tourneert de uitkomst. De uitkomst 
kan geretourneerd worden in een va¬ 
riabele zoals in het statement 
W=SQR(9); variabele W krijgt dan de 
waarde 3. 

Om zelf functies in machinetaal te 
schrijven, moeten we een methode 
hebben om waarden vanuit machine¬ 
taal aan BASIC door te geven. Met de 
methode via de SYS instructie is dit 
niet mogelijk. Maar gelukkig heeft de 
Commodore een BASIC instructie die 
dit mogelijk maakt. Dit is de USR in¬ 
structie. Deze instructie roept, net zo¬ 
als de SYS instructie, een machine¬ 
taal routine aan. Maar in tegenstelling 
tot de standaard SYS instructie moet 



er een numerieke parameter worden 
meegeven. Deze parameter moet 
tussen haakjes achter de USR in¬ 
structie staan. De routine kan dan een 
bewerking op deze parameter uitvoe¬ 
ren en de uitkomst vervolgens retour¬ 
neren. De USR instructie is dus een 
functie en kan bijvoorbeeld als volgt 
aangeroepen worden: W=USR(10); 
de machinetaal routine zal dan een 
bewerking met het getal 10 uitvoeren 
en de uitkomst in W retourneren. 

Uit de aanroep W=USR(10) kunnen 
we zien dat er enkele verschillen tus¬ 
sen SYS en USR zijn. Een verschil is 
dat USR aan een variabele kan wor¬ 
den toegekend en SYS niet. Een an¬ 
der verschil is dat bij SYS het starta¬ 
dres van de machinetaal routine 
wordt meegegeven en bij USR 
niet. 

startadres 

Toch moet de computer ook bij 
de USR functie weten waar de 
machinetaal routine begint. We 
zullen daarom precies bekijken 
hoe de computer bij de USR in¬ 
structie te werk gaat. Bij het uit¬ 
voeren van een USR functie 
wordt niet direct naar de zelf ge¬ 
maakte routine gesprongen (zo¬ 
als bij de SYS instructie), maar 
wordt naar adres 784 gespron¬ 
gen. Op dit adres staat de waar¬ 
de 76; dit is de stopcode voor de 
machinetaal JMP-instructie. Het 
adres waar deze instructie heen 
springt, staat in de volgende 
adressen, 785 en 786. De routi¬ 
ne die op dit adres staat, wordt 
dus uiteindelijk uitgevoerd. Om een 
zelfgeprogrammeerde functie uit te 
laten voeren, moet het startadres van 
deze functie in de adressen 785 en 
786 worden gepoked. Dit startadres 
moet in de vorm van een lo- en hi-byte 
worden gepoked. Het lo-byte moet in 
785 worden gepoked en het hi-byte in 
786. Voor het uitrekenen van het lo- 
en het hi-byte van een willekeurig 
adres kan de volgende formule ge¬ 
bruikt worden: 

HI=INT( AD/256) :LO=AD-256*HI 

Standaard staat in 785 en 786 het 
adres 45640. Op dit adres begint de 
routine die de foutmelding 7ILLEGAL 
QUANTITY ERROR’ afdrukt. Als de 
USR instructie dus wordt gebruikt 
zonder dat het startadres van de func¬ 
tie in 785 en 786 is gepoked, wordt 
deze foutmelding gegeven. 

Nu we precies weten hoe we een 
USR functie aan kunnen roepen, 
gaan we ons bezig houden met het 
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schrijven van de machinetaal routine. 
Deze routine zal bestaan uit drie de¬ 
len: 

1. Het inlezen van de meegegeven 
parameter. 

2. Een bewerking met de parameter 
uitvoeren. 

3. Het retourneren van de uitkomst 
van stap 2. 

Nadat de USR functie is aangeroe¬ 
pen, zet de computer de parameter 
automatisch in een zogenaamde 
Floating Point Accumulator (FAC). 
Het werken met Floating Point getal¬ 
len is een vervelend karwei. We zul¬ 
len daarom, net zoals in de vorige af¬ 
levering, de parameter vertalen naar 
een 16 bits integer. Voor het vertalen 
zijn er twee routines beschik¬ 
baar. Dit zijn dezelfde routines 
als de routines uit de vorige af¬ 
levering. 

De eerste staat op $B1BF. 

Deze routine vertaalt een para¬ 
meter die tussen -32768 en 
32767 ligt. Het hi-byte wordt in 
$64 gezet en het lo-byte in $65. 

De tweede routine staat op 
$B7F7. Deze routine vertaalt 
een parameter die tussen 0 en 
65535 ligt. Het hi-byte wordt in 
de accumulator gezet en het lo- 
byte in het Y-register. 

Nadat we de parameter hebben 
omgezet in een integer, kunnen 
we deze het beste ergens in het 
geheugen zetten (bijvoorbeeld 
achter het eind van het pro¬ 
gramma). 

Nu kunnen we zelf een bewer¬ 
king met de integer bedenken 
en programmeren. 

Als laatste moeten we de uitkomst 
van de bewerking retourneren. Dit 
kan gedaan worden door de uitkomst 
te vertalen naar een floating point ge¬ 
tal en dit getal in FAC te plaatsen. 
Hierna beëindigen we de routine met 
RTS. De computer zorgt er dan zelf 
voor dat de uitkomst aan het BASIC 
programma wordt geretourneerd. 
Voor het vertalen van een integer 
naar floating point is er ook een ROM 
routine beschikbaar. Deze begint op 
$B391. Deze routine vertaalt alleen 
integers tussen -32768 en 32767. 
Voordat de routine kan worden aan¬ 
geroepen, moet het hi-byte van de uit¬ 
komst in de accumulator worden ge¬ 
zet en het lo-byte in het Y-register. De 
routine vertaalt de waarde naar een 
floating point getal en zet deze vervol¬ 
gens in FAC. Helaas bestaat er geen 
ROM routine die integers tussen 0 en 
65535 naar floating point vertaalt. We 
hebben echter zelf een kleine subrou- 
tine ontwikkeld die dit voor u doet. Als 
u integers tussen 0 en 65535 wilt re¬ 


tourneren, moet u deze subroutine 
gewoon opnemen in uw eigen pro¬ 
gramma. In figuur 2 staat de listing 
van die routine. Ook bij deze routine 
moet voor de aanroep de integer in de 
accumulator en het Y-register worden 
geplaatst. 

Als voorbeeld van een USR functie, 
geven we nu een eenvoudige assem- 
bly listing. De drie eerder genoemde 
delen waaruit een USR functie altijd 
bestaat, hebben we in de listing aan¬ 
gegeven met de cijfers 1,2 en 3. Met 
deze functie kunt u de RAM adressen 
in de geheugengebieden op $A000- 
$BFFF en $E000-$FFFF uitlezen. Als 
parameter moet de USR functie een 
adres meekrijgen. De waarde van dit 



RAM adres wordt geretourneerd. 
Hierdoor kan dit RAM gebied niet al¬ 
leen vanuit machinetaal maar ook 
vanuit BASIC benut worden. 

MNEMONICS COMMENTAAR 

1 jsr $b7f7 Vertaal parameter 

Ida $64 

sta $fc Bewaar hi-byte van 
adres 
Ida $65 

sta $fb Bewaar lo-byte van adres 

2 sei Zet interruupt uit 

Idx #$35 Zet ROM uit 

stx $01 

Idy #$00 

Ida ($fb),y Accu wordt adreswaar¬ 
de 

Idx #$37 Zet ROM aan 

stx $01 

cli Zet interrupt aan 

3 tay Zet lo-byte in y 

Ida #$00 Hi-byte is 0 

jsr $b391 Retourneer waarde 

rts 


Nadat deze routine in het geheugen is 
gezet, moet het startadres in 785 en 
786 worden gepoked. Stel dat u de 
routine op adres 49152 zet. Het hi- 
byte is dan INT(49152/256)=192 en 
het lo-byte is 49152-256*192=0. U 
moet dan in 785 een 0 poken en in 
786 de waarde 192. Nu kunt u de 
USR functie aanroepen met bijvoor¬ 
beeld PRINT USR (40960). Dit state¬ 
ment zal de waarde van het RAM 
adres 40960 op het scherm afdruk¬ 
ken. Een aanroep die we al eerder 
hebben gezien is W=USR(65535). 
Deze aanroep zorgt er voor dat W de 
waarde van het RAM adres 65535 
krijgt. 


Combineren 

Met de hierboven beschreven 
methode is het mogelijk om func¬ 
ties te programmeren die een nu¬ 
merieke parameter hebben en 
die een waarde retourneren. 
Door deze methode te combine¬ 
ren met de methode om parame¬ 
ters via het SYS commando mee 
te geven, kunnen functies ge¬ 
maakt worden die meerdere nu¬ 
merieke en alfanumerieke para¬ 
meters hebben en een waarde 
retourneren. De aanroep van 
een dergelijke functie zou er dan 
als volgt uit kunnen zien: 
W=USR(ASC("E")),"Deze zin 
bevat vier e’s". Deze functie re¬ 
tourneert dan hoe vaak de mee¬ 
gegeven ascii waarde in de mee¬ 
gegeven string voorkomt. In dit 
voorbeeld wordt W gelijk aan 5. Het 
eerste wat gedaan moet worden in 
een dergelijke routine, is het vertalen 
van de numerieke parameter tussen 
de haakjes. Dit gaat net zoals bij de 
USR functie zonder extra parameters. 
Daarna kunnen de parameters achter 
de komma worden ingelezen. Dit kan 
op precies dezelfde manier als het in¬ 
lezen van de parameters bij het SYS 
commando (zie daarvoor de vorige af¬ 
levering). We gaan hier verder niet op 
in, maar met de nu verkregen kennis 
en wat experimenteren, moet u zelf 
een dergelijke functie kunnen maken. 
Veel succes ermee! 

Michel de Boer & Hylke Spranger 
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Zo, de vakantie is eindelijk voorbij; de dagen worden weer korter, de regen komt er 
weer aan en de herfst staat al voor de deur. Kortom, u kunt weer uitgerust en met 
frisse moed uw Commodore 64 uit de kast halen. Deze vierde aflevering van de cursus 
Graphics op de 64 zal u in ieder geval voldoende stof geven om weer aan de slag te 
gaan. De komende maand kunt u met vierkante en tollende ogen achter uw scherm 
zitten om de fascinerende wereld van high resolution te ontdekken. Get ready to take 
off. No smoking please! 


Graphics op de 64 

Deel 4: high resolution 

I n de vorige afleveringen hebben we de karakters en de sprites uitgebreid 
behandeld. Het derde en laatste grafische object dat de Commodore 64 
rijk is, is nu aangebroken: high resolution. Dit is de grootste van alle 
grafische objecten. Dit heeft zowel voor- als nadelen. Een van de voordelen 
is dat er hele beelden mee volgetekend kunnen worden en dat niet, zoals bij 
karakters, allemaal kleine plaatjes moeten worden samengevoegd tot een 
groot geheel. Een nadeel is echter dat high resolution minder geschikt is 
voor animatie, omdat dan veel rekenwerk verricht moet worden. 


Deze aflevering zal een beetje aan de 
theoretische kant blijven, omdat high 
resolution op de Commodore 64 nu 
eenmaal een complexe aangelegen¬ 
heid is. Laat u zich hierdoor geens¬ 
zins afschrikken! Integendeel, het is 
een aangename uitdaging om ook dit 
laatste grafische object onder de knie 
te krijgen. In ieder geval, veel succes. 

De volgende punten zullen in deze af¬ 
levering de revue passeren: 

* Wat is high resolution 

* Opbouw van high resolution 

* Hires aanzetten en wissen 

* Scherm kleuren 

* Een pixel aan zetten 

* Applicatie programma 


Wat is high resolution? 

Het standaard beeld waarmee u nor¬ 
maal werkt wordt low resolution ge¬ 
noemd. De kleinste eenheid van het 
low resolution scherm is een karakter. 
Met kleinste eenheid bedoelen we 
hier het kleinste element op het 
scherm dat door u geprogrammeerd 
kan worden. Op de Commodore 64 
bestaat nog een andere scherm 
mode. Deze mode wordt high resolu¬ 
tion genoemd. High resolution wordt 
meestal afgekort tot het acronym hi¬ 
res. In deze aflevering zullen we het 
dan ook verder hebben over hires. In 
hires is de kleinste eenheid een pixel 



(pixel staat voor picture element). Zo¬ 
als u wellicht nog weet bestaan karak¬ 
ters en sprites ook uit pixels. In tegen¬ 
stelling tot sprites en karakters be¬ 
slaat hires een heel scherm en niet 
een klein gedeelte van het scherm. 
Hires is dus een heel scherm dat ge¬ 
heel uit pixels bestaat. Door de ver¬ 
schillende pixels aan of uit te zetten 
kan men tekeningen over het hele 
scherm maken. Deze tekeningen 
kunnen weer in verschillende kleuren- 
modes worden afgebeeld. Hires is 
vooral geschikt voor het maken van 
statische beelden. Omdat een heel 
scherm vol met pixels een enorme re¬ 
kencapaciteit vraagt van de compu¬ 
ter, is hires minder geschikt voor het 
maken van dynamische beelden en 
animaties. Omdat veel rekenwerk re¬ 
latief veel tijd kost, is snel bewegen 
van hires er niet bij. 



Opbouw van hires 

Een hires-scherm bestaat uit 64000 
pixels. Horizontaal bestaat het 
scherm uit 320 pixels en verticaal uit 
200 pixels. In totaal zijn dit inderdaad 
320 * 200 = 64000 pixels. Dat er 
64000 pixels zijn is logisch te berede¬ 
neren. Een lores (low resolution) 
scherm bestaat uit 1000 karakters; 40 
karakters in horizontale richting en 25 
in verticale richting. Elk van deze ka¬ 
rakters is weer opgebouwd uit een 
raster van 8 bij 8 pixels. In totaal is 
een karakter dus opgebouwd uit 64 
pixels. Het hele scherm bestaat zo uit 
1000 * 64 = 64000 pixels. 

Het wordt wat afgezaagd, maar ook 
bij hires wordt een pixel intern weer 
gerepresenteerd door een bit. Acht 
horizontale pixels kunnen daardoor 
door een byte worden weergegeven. 
Elk pixel van het scherm kan aan (bit 
aan) of uit (bit uit) staan. Een heel hi¬ 
res-scherm bestaat uit 64000 / 8 = 
8000 bytes. Deze bytes moeten na¬ 
tuurlijk weer op een of andere manier 
geordend zijn in het geheugen. Wel, 
de byte-ordening van hires is wel lo¬ 
gisch, maar niet handig voor de pro¬ 
grammeur. We kunnen dit het beste 
laten zien aan de hand van een plaat¬ 
je (zie figuur 1). Dit plaatje laat een 
gedeelte van het hires-scherm zien. 
Om in te zien hoe de bytes zijn geor¬ 
dend, kunnen we het beste eerst even 
teruggaan naar lores. Het lores- 
scherm bestaat uit 1000 karakters. 
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Het karakter linksboven is het eerste 
karakter, het karakter rechts daar¬ 
naast het tweede en het karakter 
rechtsonder het laatste. Elk karakter 
correspondeert met een rij van acht 
verticale bytes op het hires-scherm. 
Het eerste karakter correspondeert 
met de eerste acht bytes (byte 0 tot 
byte 7) van hires; het tweede karakter 
correspondeert met de tweede acht 
bytes (byte 8 tot byte 15) enzovoort. 
Een heel hires-scherm bestaat zo uit 
1000 stukjes van elk acht bytes. Elk 
byte bestaat, zoals gezegd, uit acht 
bits (lees pixels), die de basis¬ 
elementen van het hires- 
scherm vormen. Voor de pro¬ 
grammeur is deze byte-orde- 
ning niet handig, dit zal nog 
blijken uit de algoritmen om 
een willekeurige pixel aan of 
uit te zetten en lijnen te trek¬ 
ken. Intern was het voor de 
makers van de Commodore 
wel makkelijk, omdat hierdoor 
de opbouw van lores en hires 
parallel loopt. De opbouw van 
het hires-scherm zal u op het 
eerste gezicht wel verwarend 
doen voorkomen. Het best 
kunt u figuur 1 goed bestude¬ 
ren. 

Opslaan van hires 

Om een hires-plaatje op te 
slaan is een geheugengebied 
van 8000 bytes nodig. Deze 
8000 bytes kunnen niet op wil¬ 
lekeurige plaats van het geheugen 
opgeslagen worden. In principe komt 
een aantal verschillende geheugen- 
gebieden hiervoor in aanmerking. Om 
al deze verschillende geheugenge- 
bieden te kunnen benutten, moet u 
eerst iets afweten van de geheuge- 
nindeling die de Commodore 64 heeft 
en het zogenaamde bank switching. 
Hier zullen we in deze aflevering nog 
niet op in gaan, maar komen we in 
een volgende aflevering uitgebreid op 
terug. In deze aflevering zullen we 
ons beperken tot het geheugenge¬ 
bied dat begint op adres 8192. In 
adres 8192 staat de waarde van byte 
0, in adres 8193 de waarde van byte 
1 en in adres 16191 de waarde van 
byte 7999. De waarden van bytes 
worden op dezelfde manier berekend 
als bij sprites en karakters. Om een 
adres van een bepaald byte uit te re¬ 
kenen, moet het bytenummer van de 
betreffende byte bij 8192 worden op¬ 
geteld (zie figuur 1). Zie figuur 2 voor 
de ordening van de bits in een byte. 


Voor- en achtergrondkleur 

U heeft maar liefst 64000 pixels tot uw 
beschikking om een tekening of iets 
dergelijks mee te maken. Elk van 
deze pixels kan aan of uit staan. Het 
hele hires-scherm heeft een achter¬ 
grondkleur. Deze kleur kunt u zelf kie¬ 
zen uit het kleurenpalet van 16 kleu¬ 
ren dat de Commodore u biedt. Als u 
een pixel van het hires-scherm aan¬ 
zet, moet deze pixel natuurlijk een 
kleur hebben. De kleur van de pixels 
die aanstaan noemen we de voor- 


grondkleur. Als een pixel uitstaat, 
heeft dat beeldpunt de gedefinieerde 
achtergrondkleur. 

We zullen nu de term cel introduce¬ 
ren. Een cel op het hires-scherm is 
een blokje van 8 bytes onder elkaar. 
In totaal bestaat een hires-scherm uit 
1000 cellen. Het verband met lores 
zult u inmiddels wel gezien hebben. 
Het lores-scherm bestaat immers ook 
uit 1000 cellen, karakters genaamd. 
Wat bij lores-karakters heten, noe¬ 
men we bij hires-cellen. Een cel be¬ 
staat dus uit 8 * 8 = 64 pixels. De cel 
is een belangrijk begrip bij hires, om¬ 
dat de voor- en achtergrondkleur di¬ 
rect verband houden met de 1000 cel¬ 
len waaruit het hires-scherm is opge¬ 
bouwd. U zou verwachten dat u voor 
het hele hires-scherm dezelfde voor- 
en achtergrondkleur moet kiezen. Dit 
is niet het geval. U kunt per cel een 
eigen voor- en achtergronkleur kie¬ 
zen. Elk rastertje van 8 bij 8 pixels 
heeft zo zijn eigen voor- en achter¬ 
grondkleur. 

U kunt de voor- en achtergrondkleur 
kiezen uit de 16 standaardkleuren 
(kleur 0 tot kleur 15). 16 kleuren kun¬ 


nen met 4 bits worden gerepresen¬ 
teerd (%0000 voor kleur 0 tot en met 
%1111 voor kleur 15). De voor- en 
achtergrondkleur hebben samen 8 
bits nodig en kunnen zo precies in 
een byte worden gestopt. Om de 
voor- en achtergrondkleur vast te leg¬ 
gen voor de 1000 cellen, zijn er even¬ 
veel bytes nodig, 1000 dus. Met be¬ 
hulp van figuur 3 kunt u de voor- en 
achtergrondkleur bepalen voor een 
bepaalde cel. Dit gaat als volgt. U 
kiest als voorgrondkleur bijvoorbeeld 
oranje en als achtergrondkleur bruin. 

U kijkt dan in de tabel. 
Oranje als voorgrond 
heeft waarde 128 en 
bruin als achtergrond 
heeft waarde 9. Deze 
waarden telt u bij elkaar 
op en de verkregen 
waarde 137 is specifiek 
voor die bepaalde cel. 
Vervolgens moeten de 
1000 kleurwaarden van 
de cellen nog aan de 
computer woren doorge¬ 
geven. Als de computer 
in de hires-mode staat, 
dient het geheugenge¬ 
bied 1024 tot 2023 als 
kleurengeheugen. In dit 
gebied, waar zich nor¬ 
maal het schermgeheu- 
gen bevindt, kunt u de 
1000 kleurwaarden zet¬ 
ten. Het is natuurlijk niet 
moeilijk meer om te ra¬ 
den welke cel met welk 
geheugenadres in het kleurengeheu¬ 
gen correspondeert. 

Hires aanzetten 

Om de computer in de hires-mode te 
brengen, moet bit 5 van adres 53265 
worden aangezet. Bijvoorbeeld met 
POKE 53265,PEEK (53265) AND 
2 A 5. Met POKE 53265, PEEK(53265) 
AND' NOT 2 A 5 staat de computer 
weer in lores-mode. Tevens moet bit 
3 van adres 53272 worden aangezet 
met POKE 53272,PEEK (53272) OR 
2 A 3. Dit bit heeft te maken met de 
plaats van het gebruikte geheugenge¬ 
bied. Daar wij voor het geheugenge¬ 
bied vanaf 8192 hebben gekozen, 
zullen wij niet in deze aflevering ver¬ 
der ingaan op het al dan niet moeten 
aanzetten van dit bit. Voor het gebruik 
van het geheugengebied vanaf adres 
8192 moet bit 3 van adres 53272 in 
ieder geval worden aangezet. Maar 
over dat soort zaken in een volgende 
aflevering van dit vervolgverhaal 
meer. 
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Het hires-scherm wissen 

U heeft in de vorige paragraaf gezien 
hoe u de computer in de hires-mode 
kan brengen. U heeft hiervoor twee 
pokes nodig. Als u deze twee pokes 
gewoon achter elkaar intypt, zult u op 
uw beeldscherm een heleboel troep 
waarnemen. Als u dan ook nog wat 
letters intikt, zullen er nog gekleurde 
blokjes op het scherm verschijnen. Dit 
komt omdat het schermgeheugen in 
het kleurengeheugen van het hires is 
veranderd. Als u letters intikt, zullen 
die wel naar geheugengebied 
1024 tot 2023 worden ge¬ 
schreven, en zo onstaan de 
verschillende kleurblokjes op 
het scherm. Deze kleurblokjes 
stellen de verschillende cellen 
van het hires-scherm voor. 

Omdat de 8000 bytes vanaf 
adres 8192 in het geheugen 
ook niet allemaal op nul staan, 
zullen er ook pixels aan staan, 
resulterend in de chaos die u 
op het beeldscherm ziet. Wat 
we dus moeten doen, is het 
uitzetten van alle pixels. Met 
andere woorden, de 8000 by¬ 
tes die het hires-scherm om¬ 
vat, moeten op nul worden ge¬ 
zet. Verder is het ook makke¬ 
lijk om voor het hele scherm 
een algemene voor- en ach- 
tergrondkleur te kiezen. Ook 
het kleurengeheugen moet 
dus helemaal volgepoked 
worden met een bepaalde 
kleurwaarde. Het volgende korte pro¬ 
gramma zet het hires-scherm aan en 
voert de bovengenoemde twee akties 
uit. Eerst vraagt het programma ech¬ 
ter nog om een voor- en achtergrond- 
kleur, die vervolgens worden omgere¬ 
kend tot een kleurwaarde die in het 
kleurengeheugen wordt gepoked. 

10 rem hires-scherm aan en 
wissen 

20 inpuf'voorgrondkleur";vg 
30 input"achtergrondkleur";ag 
40 kw=16*vg+ag 

50 poke 53265,peek (53265) or 
2 A 5 

60 poke 53272,peek(53272) or 
2 A 3 

70 for x=1024 to 2023 
80 poke x,kw:next 
90 for x=8192 to 16191 
100 poke x,0:next 
120 goto 120 

U ziet dat de kleurwaarde die in het 
kleurengeheugen van hires wordt ge¬ 
zet, wordt berekend door: kleurwaar¬ 
de = 16 * voorgrondkleur + achter¬ 
grondkleur. U kunt in de tabel (figuur 
3) zien dat de waarden in deze tabel 


ook echt overeenkomen met deze for¬ 
mule. 

Pixels op het scherm 

In deze paragraaf zullen we het gaan 
hebben over het aanzetten van pixels 
op het hires-scherm. Omdat het hires- 
scherm voor de programmeur zo on¬ 
handig is opgebouwd, is er een hele 
ingewikkelde formule voor nodig om 
de juiste pixels aan te zetten. We zul¬ 
len nu stapje voor stapje uitleggen 
hoe de formule is opgebouwd. Het 


volgende stukje is dus tamelijk theo¬ 
retisch. Het is helemaal niet erg als u 
het niet helemaal snapt. U kunt zelfs 
het volgende blok tekst gewoon in zijn 
geheel overslaan en de formule voor 
lief nemen, om er daarna gewoon 
mee te werken. De meer wiskundig 
aangelegde programmeur zal zich 
echter in de volgende twee paragra¬ 
fen verlekkerd bezig kunnen houden 
met wat hardere theorie. 

Het goede byte berekenen 
We beschouwen vanaf nu het hires- 
scherm als een raster van 320 pixels 
horizontaal en 200 pixels verticaal. 
Elke pixel op het scherm wordt gede¬ 
finieerd door een x- en een y-coördi- 
naat, waarbij de x-coördinaten van 0 
tot 319 en de y-coördinaten van 0 tot 
199 lopen. Het pixel linksboven heeft 
zo de coördinaten (0,0) en het pixel 
rechtsonder (319,199). Als u een 
pixel wilt aanzetten, moet u eerst de 
twee coördinaten bepalen. Deze twee 
coördinaten beschouwen we als de 
twee variabelen XC (x-coördinaat) en 
YC (y-coördinaat). 

Als er een pixel is uitgekozen, moet 
het bijbehorende byte en het bijbeho¬ 


rende bit in dat byte worden gezocht. 
Al eerder in dit artikel hebben we over 
cellen gesproken, een blok van acht 
onder elkaar gelegen bytes. We bere¬ 
kenen eerst de cel, waarin het geko¬ 
zen pixel zich bevindt. Daartoe intro¬ 
duceren we eerst weer twee nieuwe 
begrippen. Een Celrij is een horizon¬ 
tale rij van cellen en Celkolom is een 
verticale rij van cellen. Om de cel te 
berekenen waarin zich het pixel be¬ 
vindt, berekenen we eerst de celrij 
(CR) en celkolom (CK) waar de cel 
zich in bevindt. De twee variabelen 
CR en CK worden gege¬ 
ven door de formules: 

CR = INT (YC/8) 

CK = INT(XC/8) 

Wat we nu gedaan heb¬ 
ben, is het opsplitsen 
van het hires-scherm in 
1000 cellen. Ook deze 
1000 cellen beschrijven 
we in een assenstelsel, 
van 40 cellen horizon¬ 
taal en 25 cellen verti¬ 
caal. U heeft het waar¬ 
schijnlijk al door, de 
coördinaten van de cel 
waarin het pixel zich be¬ 
vindt dat we willen aan¬ 
zetten, worden gegeven 
door (CR, CK). 

Van de cel maken we nu 
weer een stap terug 
naar de bytes waar de 
cel uit bestaat. We kun¬ 
nen het goed begrijpen als u nu al een 
beetje gek wordt van de verschillende 
variabelen die we hebben geïntrodu¬ 
ceerd. Wel, er komen er nog een 
paar, te beginnen met FCB. Met de 
variabel FCB duiden we het eerste 
byte aan in de gevonden cel. Ook bij 
FCB hoort er weer een formule, die 
we maar gelijk geven: 

FCB = 320*CR + 8 *CK 

De correctheid van deze formule kunt 
u als volgt inzien. In een Celrij zitten 
40 cellen van elk acht bytes. Een celrij 
beslaat dan 40 * 8 = 320 bytes. Van¬ 
daar dat CR met 320 wordt vermenig¬ 
vuldigd. Dat CK met acht wordt ver¬ 
menigvuldigd, komt omdat elke cel 
acht bytes bevat. We hebben nu het 
eerste byte in de goede cel berekend. 
Nu moeten we nog het goede byte 
(BY) in de cel berekenen. Deze stap 
is redelijk complex en zodoende ook 
moeilijk om uit te leggen, De formule 
voor BY luidt in ieder geval: 

BY = FCB + (YC AND 7) 

Zoals u ziet wordt in de formule van 
FCB uitgegaan. Nou komt de moeilij- 
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ke stap. Het gedeelte (YC AND 7) 
haalt de laagste drie bits uit de y-coör- 
dinaat. Deze drie bits vormen samen 
een getal tussen de 0 een 7. Dit getal 
is precies het nummer van het goede 
byte in de berekende cel, en moet 
daarom bij FCB worden opgeteld. 
Overigens is (YC AND 7) hetzelfde 
als de expressie (YC - SHNTfYC/S)). 
Oftewel, (YC AND 7) = (YC - 8*CR). 
We hopen, dat u deze stap inziet. We 
zijn er in ieder geval nu bijna met het 
berekenen van het te gebruiken byte 
(GBY). Als laatste moet al¬ 
leen nog het beginadres van 
het hires-scherm bij BY wor¬ 
den opgeteld. Dit geeft als 
formule voor GBY: 

GBY = 8192 + BY 


We dachten zo dat u na al 
deze theoretische toestan¬ 
den wel aan een kopje koffie 
toe bent. We zijn er echter 
nog niet helemaal. We heb¬ 
ben weliswaar het goede 
byte uitgerekend, nu moeten 
we nog het goede bit in dat 
byte berekenen, om het ten¬ 
slotte aan te zetten. Eerst 
geven we nog even de hele 
formule voor GBY. 

GBY = 8192 + 

32 0*INT(YC/8) + 

8*INT(XC/8) + (YC 
AND 7) 


Het goede bit 
berekenen 

Nu we eenmaal het goede byte heb¬ 
ben berekend, moeten we nog het 
goede bit (JBI) berekenen. Daarna 
kunnen we pas de pixel aan of even¬ 
tueel uitzetten. Als allerlaatste zullen 
we nog eenmaal een variabele intro¬ 
duceren: BNO. BNO geeft het bitnum- 
mer van het bit aan in het betreffende 
byte. Hierbij zijn de bits van rechts 
naar links genummerd, met bit 0 ui¬ 
terst rechts en bit 7 uiterst links. Ook 
de volgende formule voor BNO vergt 
wederom wat inzicht. Hier komt hij: 

BNO = 7 - (XC AND 7) 

We zullen het eerst over het laatste 
deel (XC AND 7) van de formule heb¬ 
ben. Deze expressie extraheert de 
laagste drie bits uit XC. Ook hier geldt 
precies hetzelfde voor XC als we des¬ 
tijds over YC hebben gezegd. Het 
door deze expressie verkregen getal 
tussen de 0 en de 7 geeft het nummer 
van het bit weer dat we moeten heb¬ 
ben. Met het verschil dat dit nummer 
geldt voor een ordening van de bits 
van links naar rechts. Om deze orde¬ 
ning om te draaien tot de ordening die 


de computer kent, is de bovenste for¬ 
mule toereikend. Het is dan niet moei¬ 
lijk om in te zien dat de bovenstaande 
formule voor BNO werkelijk voldoet. 
We hebben nu het bitnummer te pak¬ 
ken. Het berekenen van JBI is nu nog 
een fluitje van een cent. Immers, de 
waarde van een bit wordt gegeven 
door de formule: waarde = 2 A bitnum¬ 
mer. De formule voor JBI is dan ook 
als volgt: 


JBI = 2 


BNO 





We zijn nu eindelijk door al het reke¬ 
nen en de wiskunde heen. Als u van 
al deze materie niet zoveel heeft op¬ 
gestoken, is dat geen enkel pro¬ 
bleem. De volgende paragraaf zal 
weer op het gewone programmeren 
zijn gericht. Net als de in de vorige pa¬ 
ragraaf, besluiten we deze met de to¬ 
tale formule, nu voor JBI 
JBI = 2 A (7 - (XC AND 7)) 

Pixels aanzetten 

Na al deze ellendige wiskunde pak¬ 
ken we de draad weer op van het pro¬ 
grammeren zelf. We hebben in de vo¬ 
rige twee paragrafen twee formules 
berekend. Een voor het byte (GBY) 
waarin het pixel zich bevind. De twee¬ 
de voor het bit (JBI) zelf in het byte, 
dat met het uitgekozen pixel corres¬ 
pondeert. Het aanzetten van een 
pixel kan gebeuren met POKE GBY, 
PEEK(GBY) OR JBI. Daarentegen 
kan het uitzetten van een pixel gebeu¬ 
ren met POKE GBY, PEEK(GBY) 
AND NOT JBI, wat equivalent is met 
POKE GBY, PEEK(GBY) AND (255 - 
JBI). Het is nu weer tijd voor een pro¬ 
gramma. Met het volgende program¬ 


ma kunt u een willekeurig pixel aan¬ 
zetten. U kunt dus nog niet bijster veel 
doen met dit programma, maar het 
laat u wel goed zien hoe het aanzet¬ 
ten van een pixel in de praktijk ge¬ 
beurt. Het programma maakt eerst 
nog het scherm schoon. Als voor- en 
achtergrondkleur worden respectie¬ 
velijk zwart en wit genomen. 


10 rem pixel aanzetten 
20 inpuf'x-coördinaat 
pixel";xc 

30 input"y-coördinaat 
pixel";yc 
40 poke 

53265,peek (53265) or 
32 

50 poke 53272, 

peek(53272) or 8 
60 for x=1024 to 2023 
70 poke x,l;next 
80 for x=8192 to 16191 
90 poke x,0:next 
100 

gby=8192+320*int(yc/8) 
+8*int(xc/8)+(yc and 
7) 

110 jbi=2 A (7-(xc and 
7) ) 

120 poke gby,peek(gby) 
or jbi 

130 goto 130 

Applicatie 

Zoals altijd besluiten we 
ook deze aflevering met 
de bespreking van een ap¬ 
plicatie. Het programma 
van deze keer heet “hires routines”. 
Het programma is wat langer dan de 
programma’s uit de vorige afleverin¬ 
gen, maar het is zeker de moeite 
waard om het over te tikken. Omdat 
geen normaal mens zulke lange pro¬ 
gramma’s kan overtikken zonder fou¬ 
ten te maken, hebben we achter het 
programma een checksum afgedrukt. 
Deze checksum is hetzelfde als de 
checksum die in de rubriek Print Out 
wordt gebruikt. Lees die rubriek voor 
eventuele uitleg. 

In het voorgaande hebben we algorit¬ 
mes besproken om hires te wissen en 
punten te zetten. Daarbij hebben we 
de Basic-implementaties van deze al¬ 
goritmes laten zien. Helaas werkten 
deze kleine Basic-programma’s nogal 
traag. Om het trekken van lijnen e.d. 
te versnellen moeten de algoritmes in 
machinetaal worden geïmplemen¬ 
teerd. Dit is een vrij ingewikkeld kar¬ 
wei; bij het trekken van een lijn zijn de 
uitkomsten van de berekeningen 
geen gehele maar gebroken getallen. 
Het rekenen met zulke getallen in ma¬ 
chinetaal is moeilijk en in vergelijking 
met berekeningen met hele getallen 
traag. Om toch een hoge snelheid te 
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halen, zijn er andere ingewikkeldere 
algoritmes nodig, die we hier niet zul¬ 
len bespreken. Om u dit werk te be¬ 
sparen, hebben wij een aantal machi¬ 
netaal routines geschreven. 

Het programma “hires routines” bevat 
zes handige routines. In figuur 4 staan 
de namen van deze routines met 
daarachter de startadressen voor ge¬ 
bruik vanuit machinetaal en Basic. In 
de laatste kolom staat welke parame¬ 
ters er voor elke routine moeten wor¬ 
den meegegeven. Hieronder volgt 
een korte beschrijving van 
alle routines: 

DOT: Zet een pixel met 
coördinaten X,Y aan of uit. 

Of het pixel aan of uit wordt 
gezet, hangt af van de waar¬ 
de van de MODE parame¬ 
ter. Als MODE 0 is, wordt er 
een pixel gewist. Als MODE 
1 is, wordt er een pixel aan¬ 
gezet. En als MODE 2 is, 
wordt een pixel geïnver¬ 
teerd; d.w.z. als het pixel op 
coördinaten X,Y aan is, 
wordt het gewist en als het 
uit is, wordt het gezet. 

LINE: Trek of wis een lijn 
van punt XI ,Y1 naar X2,Y2. 

Of de lijn getrokken of ge¬ 
wist wordt, hangt weer van 
de MODE af. Deze MODE 
heeft dezelfde betekenis als 
bij DOT. 

CLEAR: Wis het hires-scherm. 
COLOUR: Kies voor- en achtergrond- 
kleur voor het hele scherm. Als para¬ 
meters moeten respectievelijk de 
achter- en de voorgrondkleur worden 
meegegeven. 

TEST: Met deze routine kunt u testen 
of een bepaald pixel aan of uit staat. 
Deze routine moet niet, zoals de an¬ 
dere routines, met SYS adres,para¬ 
meters worden aangeroepen (zie ver¬ 
der), maar met USR(X),Y. Er wordt 0 
geretourneerd als het pixel met coör¬ 
dinaten X,Y uit is, als het aan is wordt 
er 1 geretourneerd. Om bijvoorbeeld 
te testen of het pixel met coördinaten 
300,12 aan staat, kunt u het volgende 
statement gebruiken: IF USR(300), 
12=1 THEN pixel is aan (zie voor uit¬ 
leg van de USR instructie de rubriek 
Tips & Trucs 64.) 

FILL: deze laatste routine kleurt een 
omsloten vlak in. Als parameters 
moeten de coördinaten van een wille¬ 
keurig punt binnen dat vlak en de 
MODE worden meegegeven. Bij 
MODE 1 wordt een leeg vlak inge¬ 
kleurd. Bij MODE 0 wordt een inge¬ 
kleurd vlak geheel gewist. U moet op¬ 
passen dat het vlak dat u wilt inkleu¬ 
ren geheel omsloten is door een on¬ 


onderbroken lijn, anders wordt niet al¬ 
leen het vlak, maar ook gedeelten bui¬ 
ten het vlak ingekleurd. 

Alle routines, behalve TEST, kunnen 
vanuit Basic met de SYS-instructie 
worden aangeroepen. De SYS-adres- 
sen vindt u in figuur 4 in de kolom ’ba- 
sic’. De parameters moeten direct 
achter de SYS-instructie worden 
meegegeven. Dit gaat als volgt: om 
bijvoorbeeld een lijn van punt 0,0 naar 
punt 319,199 in MODE 1 wilt trekken, 



tikt u het volgende in: SYS 49186,0, 
0,319,199,1 en de computer doet de 
rest. Het is ook mogelijk om de routi¬ 
nes vanuit machinetaal programma’s 
te gebruiken, in de kolom 'machine¬ 
taal’ vindt u de hexadecimale starta¬ 
dressen van de routines. Om bijvoor¬ 
beeld het scherm te wissen gebruikt u 
JSR $C314. De parameters die moe¬ 
ten worden meegegeven, moeten, 
voordat u een routine aanroept, in de 
adressen $02A7 e.v. worden gezet. 
Een X-coördinaat moet hierbij in een 
lo- en hi-byte worden gesplitst, omdat 
deze groter dan 255 kan zijn en daar¬ 
door niet meer in een byte past. De 
TEST routine retourneert in de accu¬ 
mulator een 1 als een pixel aan, een 
0 als deze uit staat. Om vanuit machi¬ 
netaal een punt op coördinaat 10,20 
te inverteren, doet u het volgende: 


lda #10 


;1o-byte 


x-coördinaat 
sta $02a7 

lda #0 ;hi-byte 

x-coördinaat 
sta $02a8 


lda #20 
sta $02a9 
lda #2 
sta $02aa 
jsr $c085 


;y-coördinaat 


; MODE 


; DOT 


Alle routines doen hun werk in het hi¬ 
res-scherm dat op adres 8192 start. 
We hebben geen aparte routines toe¬ 
gevoegd die overschakelen van tekst 
naar hires en vice versa, omdat dit 
makkelijk met twee pokes, zoals we 
eerder hebben uitgelegd, gedaan kan 
worden. 

Voor de machinetaal-programmeurs 
is het handig om te weten welke ge- 
heugenadressen door de hires-routi- 
nes in beslag worden genomen. Deze 
zijn de volgende: 

$A8-$AB, $FB-$FF, 
$02A7-$02B6, $0334- 
$0339, $C000-$C6FA 
en $CE00-$CFFF . 

Er zijn vele programma’s 
zoals SIMON'S BASIC 
verkrijgbaar, waarmee 
hetzelfde als met onze hi- 
res-routines gedaan kan 
worden. Een voordeel van 
ons programma is dat het 
weinig geheugen in be¬ 
slag neemt en dat het niet 
alleen vanuit Basic maar 
ook vanuit machinetaal 
kan worden gebruikt, 
waardoor er eenvoudig 
nieuwe routines kunnen 
worden toegevoegd, zoals 
een routine om rechthoe¬ 
ken te tekenen. Ook zijn 
de routines sneller dan in veel andere 
programma’s; onze FILL-routine doet 
er bijvoorbeeld 22 sec. over om een 
heel scherm in te kleuren, terwijl Sl- 
MON’S BASIC hier 90 sec. over doet. 
Een klein nadeel is dat u er zelf voor 
moet zorgen dat de meegegeven 
coördinaten niet te groot zijn. Als dit 
wel het geval is, geeft de computer 
geen foutmelding, maar worden er 
buiten het hires-geheugen adressen 
veranderd, waardoor gegevens of 
programma’s verminkt kunnen wor¬ 
den. 

Tot zover deze aflevering. In de vol¬ 
gende aflevering gaan we verder met 
het onderwerp hires. Hierin komen 
onder andere het trekken van lijnen 
en cirkels en multi color aan bod. 

Michel de Boer & Hylke Sprangers 

1 rem ****************** 

2 rem * * 

3 rem * hires routines * 

4 rem * * 

5 rem ****************** 

10 for i= 49152 to 50938 
20 read a:poke i,a:next 

30 poke 785,115:poke 786,192 
1000 data 
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32,253,174,32,158,173,32,247 
1010 data 183,96,32,0,192,140,167,2 
1020 data 141,168,2,32,0,192,140,169 
1030 data 2,32,0,192,140,170,2,76 
1040 data 133,192,32,0,192,140,167,2 
1050 data 141,168,2>32,0,192,140,169 
1060 data 2,32,0,192,140,170,2,141 
1070 data 171,2,32,0,192,140,172,2 
1080 data 32,0,192,140,173,2,76,174 
1090 data 192,32,0,192,140,167,2,32 
1100 data 0,192,140,168,2,76,54,195 
1110 data 32,0,192,140,167,2,141,168 
1120 data 2,32,0,192,140,169,2,32 
1130 data 0,192,140,170,2,76,134,195 
1140 data 76,20,195,32,247,183,140,167 
1150 data 2,141,168,2,32,0,192,140 
1160 data 169,2,76,88,195,173,170,2 
1170 data 10,170,189,238,198,141,54,3 
1180 data 189,239,198,141,55,3,173,167 
1190 data 2,141,250,198,173,168,2,141 
1200 data 251,198,173,169,2,141,252,198 
1210 data 32,1,198,108,54,3,173,168 
1220 data 2,205,171,2,208,25,173,167 
1230 data 2,205,170,2,208,17,173,169 
1240 data 2,205,172,2,208,9,173,173 
1250 data 2,141,170,2,76,133,192,173 
1260 data 173,2,10,170,189,238,198,141 
1270 data 54,3,189,239,198,141,55,3 
1280 data 169,0,141,0,199,141,1,199 
1290 data 173,168,2,205,171,2,144,15 
1300 data 208,8,173,170,2,205,167,2 
1310 data 176,5,169,1,141,0,199,173 
1320 data 172,2,205,169,2,176,5,169 
1330 data 1 -, 141,1, 199, 56, 173, Ö,. 199 
1340 data 208,21,173,170,2,237,167,2 
1350 data 141,253,198,173,171,2,237,168 
1360 data 2,141,254,198,76,57,193,173 
1370 data 167,2,237,170,2,141,253,198 
1380 data 173,168,2,237,171,2,141,254 
1390 data 198,173,1,199,208,12,173,172 
1400 data 2,237,169,2,141,255,198,76 
1410 data 83,193,173,169,2,237,172,2 
1420 data 141,255,198,173,254,198,240,3 
1430 data 76,35,194,173,253,198,205,255 
1440 data 198,144,3,76,35,194,173,1 
1450 data 199,208,52,173,167,2,141,250 
1460 data 198,173,168,2,141,251,198,173 
1470 data 169,2,141,252,198,32,1,198 
1480 data 173,0,199,208,13,169,63,141 
1490 data 52,3,169,198,141,53,3,76 
1500 data 208,193,169,82,141,52,3,169 
1510 data 198,141,53,3,76,208,193,173 
1520 data 170,2,141,250,198,173,171,2 
1530 data 141,251,198,173,172,2,141,252 
1540 data 198,32,1,198,173,0,199,208 
1550 data 13,169,82,141,52,3,169,198 
1560 data 141,53,3,76,208,193,169,63 
1570 data 141,52,3,169,198,141,53,3 
1580 data 173,255,198,74,141,2,199,169 
1590 data 0,141,4,199,141,6,199,32 
1600 data 166,198,238,4,199,173,255,198 
1610 data 205,4,199,144,39,32,99,198 
1620 data 173,2,199,24,109,253,198,141 
1630 data 2,199,176,5,205,255,198,144 
1640 data 222,32,163,198,238,6,199,56 
1650 data 173,2,199,237,255,198,141,2 
1660 data 199,76,223,193,173,6,199,205 
1670 data 253,198,176,6,32,163,198,32 
1680 data 166,198,96,173,0,199,208,52 
1690 data 173,167,2,141,250,198,173,168 
1700 data 2,141,251,198,173,169,2,141 
1710 data 252,198,32,1,198,173,1,199 
1720 data 208,13,169,99,141,52,3,169 
1730 data 198,141,53,3,76,141,194,169 
1740 data 120,141,52,3,169,198,141,53 


1750 data 3,76,141,194,173,170,2,141 
1760 data 250,198,173,171,2,141,251,198 
1770 data 173,172,2,141,252,198,32,1 
1780 data 198,173,1,199,208,13,169,120 
1790 data 141,52,3,169,198,141,53,3 
1800 data 76,141,194,169,99,141,52,3 
1810 data 169,198,141,53,3,173,253,198 
1820 data 141,4,199,173,254,198,141,5 
1830 data 199,78,5,199,110,4,199,169 
1840 data 0,141,2,199,141,3,199,141 
1850 data 7,199,32,166,198,238,2,199 
1860 data 208,3,238,3,199,173,253,198 
1870 data 205,2,199,176,8,173,3,199 
1880 data 205,254,198,240,64,32,63,198 
1890 data 173,4,199,24,109,255,198,141 
1900 data 4,199,144,3,238,5,199,173 
1910 data 5,199,205,254,198,144,203,208 
1920 data 8,173,4,199,205,253,198,144 
1930 data 193,32,163,198,238,7,199,56 
1940 data 173,4,199,237,253,198,141,4 
1950 data 199,173,5,199,237,254,198,141 
1960 data 5,199,76,170,194,173,7,199 
1970 data 205,255,198,176,6,32,163,198 
1980 data 32,166,198,96,173,248,198,133 
1990 data 251,173,249,198,133,252,24,105 
2000 data 32,141,14,199,160,0,152,145 
2010 data 251,200,208,251,230,252,166,252 
2020 data 236,14,199,208,242,96,169,0 
2030 data 133,251,169,4,133,252,173,168 
2040 data 2,10,10,10,10,13,167,2 
2050 data 160,0,145,251,200,208,251,230 
2060 data 252,166,252,224,8,208,243,96 
2070 data 173,167,2,141,250,198,173,168 
2Ö80 data 2,141,251,198,173,169,2,141 
2090 data 252,198,32,1,198,32,210,196 
2100 data 176,6,169,0,168,76,124,195 
2110 data 169,0,160,1,140,8,199,32 
2120 data 145,179,173,8,199,96,173,167 
2130 data 2,141,250,198,141,11,199,173 
2140 data 168,2,141,251,198,141,12,199 
2150 data 173,169,2,141,252,198,141,13 
2160 data 199,32,1,198,138,72,173,170 
2170 data 2,201,2,208,35,32,210,196 
2180 data 176,15,169,210,141,56,3,169 
2190 data 196,141,57,3,162,2,76,222 
2200 data 195,169,221,141,56,3,169,196 
2210 data 141,57,3,162,0,76,222,195 
2220 data 10,170,189,244,198,141,56,3 
2230 data 189,245,198,141,57,3,189,238 
2240 data 198,141,54,3,189,239,198,141 
2250 data 55,3,169,0,133,168,133,170 
2260 data 169,206,133,169,133,171,104,170 
2270 data 169,1,141,9,199,141,10,199 
2280 data 32,169,198,144,3,76,170,196 
2290 data 206,11,199,173,11,199,201,255 
2300 data 208,14,206,12,199,16,9,238 
2310 data 12,199,238,11,199,76,51,196 
2320 data 32,82,198,32,169,198,144,224 
2330 data 32,63,198,238,11,199,208,3 
2340 data 238,12,199,32,166,198,173,13 
2350 data 199,72,240,33,206,13,199,32 
2360 data 120,198,32,169,198,176,14,173 
2370 data 9,199,240,14,206,9,199,32 
2380 data 166,197,76,90,196,169,1,141 
2390 data 9,199,32,99,198,104,141,13 
2400 data 199,72,201,199,240,33,238,13 
2410 data 199,32,99,198,32,169,198,176 
2420 data 14,173,10,199,240,14,206,10 
2430 data 199,32,166,197,76,132,196,169 
2440 data 1,141,10,199,32,120,198,104 
2450 data 141,13,199,238,11,199,208,3 
2460 data 238,12,199,173,12,199,240,10 
2470 data 173,11,199,201,64,208,3,76 
2480 data 170,196,32,63,198,32,169,198 
2490 data 144,137,165,168,197,170,208,7 
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2500 data 165., 169,197,171,2 08, 1, 96,32 
2510 data 226,197,173,11,199,141,250,198 
2520 data 173,12,199,141,251,198,173,13 
2530 data 199,141,252,198,32,1;198,76 
2540 data 248,195,177,251,61,172,198,240 
2550 data 2,56,96,24,96,177,251,61 
2560 data 172,198,240,2,24,96,56,96 
2570 data 169,0,133,253,169,206,133,254 
2580 data 140,8,199,165,251,72,165,252 
2590 data 72,138,72,152,72,160,0,177 
2600 data 253,141,250,198,200,177,253,141 
2610 data 251,198,200,177,253,141,252,198 
2620 data 32,1,198,32,169,198,176,29 
2630 data 24,165,253,105,3,133,253,144 
2640 data 2,230,254,165,253,201,254,208 
2650 data 212,165,254,201,207,208,206,172 
2660 data 8,199,56,176,23,160,0,173 
2670 data 11,199,145,253,200,173,12,199 
2680 data 145,253,200,173,13,199,145,253 
2690 data 172,8,199,24,104,168,104,170 
2700 data 104,133,252,104,133,251,96,165 
2710 data 170,201,0,208,8,165,171,201 
2720 data 206,208,2,56,96,140,8,199 
2730 data 169,0,133,253,169,206,133,254 
2740 data 160,0,165,170,197,168,208,27 
2750 data 165,171,197,169,208,21,169,0 
2760 data 133,170,169,206,133,171,165,253 
2770 data 133,168,165,254,133,169,172,8 


2870 data 133,168,144,2,230,169,172,8 
2880 data 199,96,160,0,177,170,141,11 
2890 data 199,200,177,170,141,12,199,200 
2900 data 177,170,141,13,199,24,165,170 
2910 data 105,3,133,170,144,2,230,171 
2920 data 96,173,249,198,133,252,169,0 
2930 data 133,251,173,252,198, 41, 7,1,68 
2940 data 173,252,198,74,74,41,254,170 
2950 data 24,189,188,198,101,251,133,251 
2960 data 189,189,198,101,252,133,252,173 
2970 data 250,198,41,7,170,24,173,250 
2980 data 198,41,248,101,251,133,251,173 
2990 data 251,198,101,252,133,252,96,232 
3000 data 224,8,208,13,162,0,24,165 
3010 data 251,105,8,133,251,144,2,230 
3020 data 252,96,202,16,13,162,7,56 
3030 data 165,251,233,8,133,251,176,241 
3040 data 198,252,96,200,192,8,208,15 
3050 data 160,0,24,165,251,105,64,133 
3060 data 251,165,252,105,1,133,252,96 
3070 data 136,16,15,160,7,56,165,251 
3080 data 233,64,133,251,165,252,233,1 
3090 data 133,252,96,177,251,29,172,198 
3100 data 145,251,96,177,251,61,180,198 
3110 data 145,251,96,177,251,93,172,198 
3120 data 145,251,96,108,52,3,108,54 
3130 data 3,108,56,3,128,64,32,16 
3140 data 8,4,2,1,127,191,223,239 


2780 data 199,24,96,177,170,145,253,230 3150 data 247,251,253,254,0,0,64,1 

2790 data 170,208,2,230,171,230,253,208 3160 data 128,2,192,3,0,5,64,6 

2800 data 209,230,254,76,114,197,165,168 3170 data 128,7,192,8,0,10,64,11 

2810 data 201,254,208,17,165,169,201,207 3180 data 128,12,192,13,0,15,64,16 

2820 data 208,11,32,87,197,144,6,32 3190 data 128,17,192,18,0,20,64,21 

2830 data 232,196,144,37,96,140,8,199 3200 data 128,22,192,23,0,25,64,26 

2840 data 160,0,173,11,199,145,168,200 3210 data 128,27,192,28,0,30,147,198 

2850 data 173,12,199,145,168,200,173,13 3220 data 139,198,155,198,221,196,210,196 


2860 

data 199, 

145,168,24 

,165, 

168,105,3 



3230 

data 0,32 

, o 
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regel 

2430 

64 

regel 

2910 

168 

regel 

1000 

242 

regel 

1480 

194 

regel 

1960 

167 

regel 

2440 

177 

regel 

2920 

2 

regel 

1010 

88 

regel 

1490 

49 

regel 

1970 

1 

regel 

2450 

195 

regel 

2930 

247 

regel 

1020 

132 

regel 

1500 

200 

regel 

1980 

60 

regel 

2460 

242 

regel 

2940 

251 

regel 

1030 

230 

regel 

1510 

201 

regel 

1990 

87 

regel 

2470 

142 

regel 

2950 

91 

regel 

1040 

128 

regel 

1520 

182 

regel 

2000 

179 

regel 

2480 

6 

regel 

2960 

147 

regel 

1050 

132 

regel 

1530 

29 

regel 

2010 

119 

regel 

2490 

48 

regel 

2970 

188 

regel 

1060 

15 

regel 

1540 

153 

regel 

2020 

203 

regel 

2500 

204 

regel 

2980 

80 
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43 

regel 
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regel 

2180 

194 
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Met een andere kabel en het hierbij gepubliceerde programma krijgt de C-64 gebruiker 
de beschikking over een supersonische floppy-lader. 


KIWI-LOAD (een snellader) 

K IWI (the Klngs Wisdom) LOADER is een extreem snelle floppyspeeder: 

hij kan 202 Blokken in slechts 2.8 (!) seconden binnenladen. Daarmee is 
KIWI-LOAD het snelste mij bekende laadsysteem! (Turbo Trans buiten be¬ 
schouwing gelaten omdat die bij iedere diskettewissel de hele flop in de 
RAM’s moet laden, wat veel langer duurt dan die paar tienden van seconden 
die hij bij het laden zelf sneller is.) 


Voor deze snelheid is geen andere 
formattering nodig: er wordt gewoon 
het originele GCR-format gebruikt. 
KIWI-LOAD heeft echter wel een pa- 
rallelkabel nodig die de (gesokkelde) 
CIA 6526 met de user-poort verbindt. 
De kabel (en dus het laadsysteem 
werkt helaas niet samen met de nieu¬ 
we C-128D met de metalen behui¬ 
zing, omdat de drive erin niet compa¬ 
tible is met de oude 1571 (er zit een 
customchip in i.p.v. een 6526). 

Installatie van het 
programma 

Het programma KIWI-LOAD op de 
diskette is de RAM-versie van het 
systeem, bedoeld voor ieder die (zo¬ 
als ik) geen EPROM-programmer be¬ 
zit. Het hoeft alleen maar geladen en 
gestart te worden. Het programma 
geeft dan een softreset en staat be¬ 
drijfsklaar. Voor de ROM-versie moet 
nu KIWI-ROM geladen en met 
syss49152 gestart worden. KIWI- 
LOAD wordt dan aangepast en ver¬ 
schoven naar $2000-$4000. Met een 
EPROM-programmer kan KIWI- 
LOAD vervolgens op EPROM gezet 
worden. 

Installatie van de 
parallelkabel 

Deze kabel verbindt de user-poort 
met de CIA 6526 van de drive. Ik heb 
voor de CIA 6526 gekozen omdat dat 
(op de ROM na) het enige gesokkelde 
IC in de 1570 is. Bovendien is ze er 
het meest geschikt voor (de 6522’s 
hebben geen NOT PC pin). Voor de 
kabel heeft men nodig: 

• 30cm lOaderig flatcable 

• 1 User-poortconnector (+ kapje) 

• 1 40 polige IC-voet (gedraaid) 

De volgende leidingen moeten met el¬ 
kaar verbonden worden: 


USERPORT 

CIA 

6526 

B 

(FLAG2) 

18 

(PC2) 

C 

(PBO) 

10 

(PBO) 

D 

(PB1) 

11 

(PB1) 

E 

(PB2) 

12 

(PB2) 

F 

(PB3) 

13 

(PB3) 

H 

(PB4) 

14 

(PB4) 

J 

(PB5) 

15 

(PB5) 

K 

(PB6) 

16 

(PB6) 

L 

(PB7) 

17 

(PB7) 

8 

(PC2) 

24 

(FLAG2 



De commando’s en 
functies van KIWI-LOAD 

Eerst maar het uit- en aanzetten van: 

ROM-Versie uitzetten: pokeO.peek 
(0)or64 

RAM-Versie uitzetten: poke1,55 of 
een hardreset (het kan dus niet met 
RUNSTOP/RESTORE of sys64738) 
ROM-Versie weer aanzetten: 
poke0,peek(0)and 191,RUNSTOP/ 
RESTORE of een reset. 

RAM Versie weer aanzetten: 
pokel ,53 

Maar wanneer men een programma 
heeft geladen dat langer is dan 38K 
en dus de BASIC is overschreven, 
dan schakelt de RAM-versie zichzelf 
uit om een hangup te voorkomen. 
KIWI-LOAD kan dan herstart worden 
met sys288 of sys2024. Het in het ge¬ 
heugen aanwezige programma wordt 


BLAD 1 Programma kiwi-rom 

1 rem *** kiwi-load rom omzetter *** 

2 rem *** door bastiaan bakker 1988 *** 

3 rem 

10 if peek(l) 117 thenprint"laad{S 

PACE}en{SPACE}run{SPACE}eerst{SPAC E}kiwi-load!":end 
20 restore 

30 fora=0to50:readb:poke49152+a,b:c=c +b:next 
40 if c 8375 thenprinf'er{SPACE}zi 
t{SPACE}nog{SPACE}een{SPACE}fout{S 
PACE}in{SPACE}de{SPACE}data{SPACE} !!!":end 

50 sys49152 

60 print"{SPACE}van{SPACE}$2000{SPACE 

}tot{SPACE}$4000{SPACE}ligt{SPACE} nu{SPACE}de{SPACE}voor" 
70 print"{SPACE}eprom{SPACE}geschikte 

{SPACE}verie{SPACE}van{SPACE}kiwi- load" 

80 end 

100 datal60,000,132,251,132,253,169,22 ,4 

101 datal33,252,169,032,133,254,177,25 1 

102 datal45,253,200,208,249,230,254,23 ,0 

103 data252,208,243,169,055,133,001,16 ,9 

104 data231,141,214,061,169,076,141,05 ,3 

105 data059,185, 055,251,153, 055, 059,20 ,0 
106 data208,247,096 

** EINDE LISTING kiwi-rom 
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Het geheugengebruik 

KIWI-LOAD gebruikt de volgende geheugengebieden: 


$100-$107* 

$120-$128*) 
$7E8-$7F0*) 
$D000-$D50f* 


Routine voor het automatisch uitschakelen wanneer de 
BASIC overschreven is. 

Restart-Routine (2x) 


Initialisatieprogramma van KIWI-LOAD. 
Wordt via $120/$7e8 aangeroepen. 
$F72G-$FB50 De eigenlijke snellaadroutine. 
$FD6E-$FD8D De nieuwe RAM-test. 

$E47E-$E493 De nieuwe opstartmelding. 

* = alleen bij de RAM-versie. 


hierbij dan wel vernietigd. Voor het la¬ 
den van disk hoeft men geen ’,8’ meer 
in te geven: LOAD ’PRG. NAAM’ vol¬ 
staat. Laden van cassette is met 
KIWI-LOAD echter niet meer moge¬ 
lijk. Maar wie bekommert zich daarom 
als hij ook meer dan 480X sneller zijn 
programma’s van diskette kan laden. 
Als er geen parallelkabel aanwezig is, 
schakelt KIWI-LOAD automatisch 
over op de originele laadroutine. Tij¬ 
dens het (snel-)laden wordt wel het 
beeldscherm uitgeschakeld (i.v.m. 
DMA van de VIC); voor max. 3 secon¬ 
den stoort dat echter nauwelijks. Met 
load’$ kan de directory zonder pro- 
grammaverlies worden opgevraagd. 
Met de shift-toets kan de directory stil¬ 
gezet en met runstop afgebroken wor¬ 
den. Meer extra’s heeft KIWI-LOAD 
niet, om de compatibiliteit zo hoog 
mogelijk te houden. 

De snelheid 

KIWI-LOAD heeft geen cache-geheu- 
gen waarin een hele track gebufferd 
kan worden. De snelheid is dan ook 
erg afhankelijk van de volgorde van 
de te lezen sectors. Daarom even een 
overzicht van de laadtijden onder ver¬ 
schillende omstandigheden: 


(Deze tijden kunnen +/-.1 seconde 
variëren.) 

Met een optimaal geformatteerde 
schijf: 2.8 seconden, met een met de 
1570/71 geformatteerde schijf: 3.1 
seconden; met een met de 1541 ge¬ 
formatteerde schijf: 4.6 seconden 
De hierbij gebruikte (202 blokken lan¬ 
ge) testfile stond aan het begin van de 
directory en is zonder sector-interlea- 
ve gesaved (d.w.z. alle sectors direkt 
achter elkaar). Hiervoor moet voor het 
saven eerst deze regel ingevoerd 
worden: 


openl,8,15:print#l,'uOs'chr$ (1) 
: closel 

Het laden van een file met normale 
sector-interleave (5) duur ongeveer 
10 seconden. In tegenstelling tot vele 
ander snelladers is er bij KIWI-LOAD 
niet afgezien van de checksum aan 
het eind van iedere sector. 

Bastiaan Bakker. 


BLAD 1 Programma kiwi 

1 rem *** kiwi-load v2 basic-loader *** 

2 rem *** door bastiaan bakker 1988 *** 

3 rem 

10 0 data020, 008,196, 007,158,050,048,055 

101 dataO48, 032,083, 085, 080, 069, 082,066 

102 dataO73,084,000,000,000,160,007,185 

103 data074,008,153,032,001,153,232,007 

104 datal36,016,2 44,120,169,052,133,0 01 

105 datal69,0 82,133,2 51,169,0 08,133,2 52 
10 6 datal60,0 00, 132,2 53,169,2 08,133,2 54 
10 7 datal77,2 51,145,2 53,2 00,2 08,2 4 9,2 30 
10 8 data252,230,2 54,165,2 54,2 01,214,2 08 
10 9 data239, 120,169,0 52,133,001,076,0 00 

110 data2 08,160, 027,185, 0 38,208,153, 000 

111 dataO01, 13 6, 016,2 47,032,000,001,0 32 

112 dataO66,2 08,160,006, 185, 031,208,153 

113 dataO00,001,136,016,247,076,000,001 

114 datal69,053,133,001,076,226,2 52,169 

115 dataO55,133,001,160,0 00,169, 160, 132 

116 data251,133,2 52,177,251,145,251,200 

117 data208,2 4 9,2 30,2 52,2 08,2 4 5,169,052 

118 datal33, 001, 096, 169, 044, 160,247,133 

119 data253,132,254,169,178,160,208,133 

120 data251,132,2 52,160, 000,177,251,145 

121 data253,2 00,2 08,004,230,2 52,230,2 54 

122 datal92,0 41,2 08,2 41,165,2 54,2 01,251 
12 3 data208,2 35,160,0 00,185,219,212,153 

124 datal10,253,200,192,031,208,245,160 

125 dataO00, 185,250,212,153, 126,228,200 
12 6 datal92,021,2 08,245,169,2 47,141,249 

127 data245,141,183,244,141,251,244,169 

128 data054,141,250,244,169,008,141,218 

12 9 data2 25, 169, 001, 141,220,225, 169,229 

13 0 datal41,214,253, 169, 076, 141, 162,244 
131 datal69,001,141,163,244,169,251,141 


132 

datal64, 

,244, 

r 096, 

165, 

, 186, 

, 032, 

,012, 

, 237 

133 

datal69, 

,255, 

, 076, 

185, 

, 237, 

, 036, 

, 000, 

, 080 

134 

dataO 03, 

,076, 

, 225, 

255, 

, 165, 

, 010, 

,208, 

,249 

135 

datal60, 

,000, 

, 177, 

187, 

,201, 

, 036, 

,208, 

, 007 

136 

data036, 

, 157, 

, 016, 

237, 

, 076, 

,140, 

,250, 

, 036 

137 

dataO 00, 

, 048, 

, 230, 

104, 

, 104, 

, 032, 

, 044, 

,247 

138 

datal60, 

, 000, 

,185, 

118, 

,248, 

, 032, 

, 221, 

,237 

139 

data2 0 0, 

,192, 

,039, 

208, 

,245, 

, 032, 

,254, 

,237 

140 

datal60 1 

, 000, 

, 032, 

044, 

, 247, 

,185, 

, 157, 

,248 

141 

data032, 

, 221, 

, 237, 

200, 

.192, 

, 005, 

,208, 

,245 

142 

dataO32, 

,254, 

, 237, 

120, 

.162, 

,010, 

, 160, 

, 000 

143 

datal36, 

,208, 

,253, 

202, 

,016, 

,250, 

, 169, 

, 127 

144 

datal41, 

, 013, 

, 221, 

044, 

, 013, 

, 221, 

,142, 

, 003 

145 

data2 21, 

, 185, 

,162, 

248, 

, 141, 

, 001, 

, 221, 

,169 

146 

data016, 

, 044, 

,013, 

221, 

,240, 

,251, 

,200, 

,208 

147 

data240, 

, 185, 

,162, 

249, 

, 141, 

, 001, 

, 221, 

,169 

148 

data016, 

, 044, 

,013, 

221, 

,240, 

,251, 

.200, 

,192 

149 

data2 40, 

,208, 

,238, 

169, 

, 000, 

,141, 

, 003, 

, 221 

150 

datal73, 

, 017, 

,208, 

041, 

, 239, 

,141, 

,017, 

,208 

151 

datal20, 

,160, 

, 000, 

140, 

, 003, 

, 221, 

,169, 

, 127 

152 

datal41, 

, 013, 

,221, 

044, 

, 013, 

, 221, 

, 032, 

, 107 

153 

data2 48, 

,072, 

, 032, 

107, 

.248, 

, 170, 

, 032, 

. 107 

154 

data2 4 8, 

, 032, 

, 107, 

248, 

.104, 

,208, 

. 013, 

. 202 

155 

data2 02, 

,202, 

, 240, 

005, 

169, 

252, 

.076, 

. 041 

156 

data2 4 8, 

, 076, 

,094, 

248, 

162, 

252, 

076, 

252 

157 

data247, 

,162, 

.254, 

032, 

107, 

248, 

240, 

. 039 

158 

dataO 32, 

, 107, 

.248, 

160, 

000, 

169, 

016, 

044 

159 

dataO13, 

.221, 

240, 

251, 

173, 

001, 

221, 

145 

160 

datal7 4, 

200, 

202, 

208, 

240, 

032, 

107, 

248 

161 

data208, 

075, 

152, 

024, 

101, 

174, 

133, 

174 

162 

datal44, 

215, 

230, 

175, 

076, 

242, 

247, 

032 

163 

datal07, 

248, 

170, 

240, 

05 6, 

202, 

169, 

254 

164 

datal33, 

094, 

160, 

000, 

169, 

016, 

044, 

013 

165 

data221, 

240, 

251, 

173, 

001 , 

221, 

145, 

174 

166 

data200, 

202, 

208, 

240, 

152, 

072, 

169, 

016 

167 

datal96, 

094, 

240, 

013, 

044, 

013, 

221, 

240 

168 

data251, 

200, 

208, 

244, 

032, 

107, 

248, 

208 
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C-64 


169 data012,104,024,101,174,133,174,144 

170 data002,230,175,024,036,056,173,017 

171 data208,009,016,141,017,208,088,076 

172 datal70,245,169,016,044,013,221,240 

173 data251,173,001,221,096,077,045,087 

174 dataOOO,006,046,120,169,127,141,013 

175 dataO64,044,013,064,160,000,140,003 

176 dataO64,169,016,044,013,064,240,251 

177 datal73,001,064,153,235,004,200,208 

178 data240,076,235,004,077,045,069,000 

179 dataO06,169,016,044,013,064,240,251 

180 datal73,001,064,153,235,005,200,192 

181 data240,208,238,076,156,006,169,000 

182 dataO69, 022,069,023,069,OIO,O69,011 

183 datal33,026,160,160,136,208,003,076 

184 dataO79,151,032,084,151,184,080,254 

185 datal84,173,OOI,028,201,082,208,236 

186 dataO80,254,184,173,OOI,028,170,189 

187 dataO13,161,133,082,138,041,OOI,133 

188 dataO84,080,254,184,173,001,028,133 

189 dataO85,041,240,005,084,170,189,015 

190 datal59, 005,O82,197,026,208,197,165 

191 dataO85,041,015,133,085,080,254,184 

192 datal73,001,028,133,058,041,128,005 

193 dataO85,170,189,029,159,133,082,165 

194 dataO58,170,189,013,162,005,082,197 

195 dataO11,208,161,032,084,151,184,132 

196 dataO31,160,192,080,254,184,173,OOI 

197 dataO28,2 01,0 85,2 40,0 03,07 6, 0 07,151 

198 dataO80,254,184,173,OOI,028,170,189 

199 dataO13,161,133,082,138,041,OOI,133 

200 dataO84,080,254,184,173,001,028,133 

201 dataO85,041,240,005,084,170,189,015 

202 datal59,005,082,133,024,141,001,064 

203 dataO69,031,133,031,165,085,041,015 

204 datal33,085,080,254,184,173,001,028 

205 datal33,058,041,128,005,085,170,189 
20 6 data029, 159,133,082,165,058,17 0, 189 

207 dataO13,162,005,082,133,025,141,OOI 

208 dataO64,069,031,133,031,138,041,003 

209 datal33,058,080,254,184,173,001,028 

210 datal33,083,041,224,005,058,170,189 

211 dataO42,159,133,082,165,083,170,189 

212 dataO13,163,O05,O82,141,O01,O64,O69 

213 data031,133,031,080,254,184,173,001 

214 data028,170,189,013,160,133,0 82,138 

215 dataO41,007,133,083,080,254,184,173 

216 dataOOl, 028,133,0 84, 0 41, 192,0 05, 0 83 

217 datal7 0,189, 013,159,005,0 82,141,OOI 

218 dataO64,069,031,133,031,165,084,170 

219 datal89,013,161,133,082,138,041,OOI 
22 0 datal33,0 84,0 80,2 54,184,173,0 01,028 

221 datal 33,0 8 5,0 41,2 4 0,0 05,0 84,17 0, 189 

222 dataO15,159,005,082,200,240,049,141 
22 3 dataO01,0 64,0 69,0 31,133,031,165,085 
22 4 dataO41,015,133,0 85,0 80,254,184,173 
22 5 dataOOl, 028,133,058,0 41, 128,0 05, 0 85 
22 6 datal70,189, 029, 159, 133,O82,165, O58 

227 datal70,189,013,162,005,082,141,001 

228 dataO64,069,031,133,031,076,215,005 

22 9 datal97,0 31,2 40,0 03,0 7 6,004,151,169 

230 dataOOO,141,OOI, 0 64,165,025,133, 011 

231 datal66, 024,240,009,228, OIO, 208,005 

232 datal34,OIO, 076, 000, 005, 134, OIO, 076 

233 dataO10,151,169,255,141,003,064,169 

234 datal27,141,013,064,166,024,165,025 

235 datal34,010,133,011,169,190,133,059 

23 6 data032,0 78,144,169,2 30,133,0 02,03 6 

237 dataO02,0 48,2 52,208,004,165,024,2 08 

238 data242,léO, 000,140,OOI, 0 64,169,016 

23 9 data044,013,0 64,2 40,2 51,140, OOI, 0 64 

24 0 datal08,2 52,2 55,104,104, 169, 000, 133 

241 datal44, 169,013,032,210,2 55,032,2 24 

242 data250,032,224,250,032,224,250,170 

243 dataO32,224,250,O32,205,189,169,032 


244 data032,210,255,032,224,250,240,027 

245 dataO32,210,255,201,034,208,244,032 

246 data224,250,240,015,032,210,255,201 

247 data034,208,244,169,058,032,210,255 

248 dataO76, 184,250,169,013, 032,210,255 

249 datal73,141,002,041,OOI,208,249,032 

250 data225,255,208,186,076,237,250,032 

251 data019,238,072,165,144,208,002,104 

252 dataO96,104,104,104,032,066,246,166 

253 dataO45,164,046,096,255,000,234,003 

254 dataO64,OOI,087,045,077,108,048,003 

255 data072,165,000,041,127,133,000,165 

256 datal86,201,008,144,038,169,000,141 

257 dataOOl,221,032,044,247,160,008,185 

258 data245,250,032,221,237,136,016,247 

259 data032,254,237,173,001,221,201,234 

260 data240,009,136,208,246,165,000,009 

261 datal28,133,000,104,032,254,250,008 

262 dataO72,165,175,201,160,144,018,160 
2 63 dataOO6,185,07 8,2 51,153,0 00,OOI,13 6 

264 data016,247,076,000,OOI,169,055,133 

265 dataOOl,104,040,096,173,255,159,142 

266 data255,159,236,255, 159,208,009,2 32 

267 datal42,255,159,236,255,159,240,004 

268 datal60,128,208,002,160,160,141,255 

269 datal59,162,000,075,073,087,073,045 
27 0 data076, 0 7 9,065, 068,032,086,050,032 

271 data032,040,067,041,032,083,080,066 

272 rem 

500 restore:printchr$(147) 

510 fora=0tol375:readb:c=ctb 
520 printl375-a"{CRSR-LEFT}{4xSPACE}{CR 
SR-UP}":next 

530 ifc 171668 thenprint"er{SPACE}zi 
t{S PACE}nog{SPACE}een{SPACE}fout{ 

SPACE}in{SPACE}de{SPACE}data{SPACE 
} ! ! ! ":end 

540 print"data{SPACE}correct. " 

600 restore 

610 fora=0tol375:readb:poke2049+a,b 
620 printl375-a"{CRSR-LEFT}{4xSPACE}{C 
RSR-UP}":next 

630 print"data{SPACE}ingelezen." 

640 print"save{SPACE}kiwi-load{SPACE}n 
u{SPACE}op{SPACE}een{SPACE}lege{SP 
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Miniatuurtjes 


Basic miniatuurtjes 

Een rubriek van Alex van Maarschalkerwaart 
Wegens vakantie uitgevoerd door Aryan van Kampen 

- Tokkel 


Gezocht: Miniatuurtjes 

voor de Commodore 64,128,16,4 en Amiga 

Stuur al je kleine leuke geinige programmatjes op 
naar de redactie van Commodore Info, Postbus 
43048,1009 ZA Amsterdam. 


Hier volgen een viertal inzendingen van Virgil van Maanen, 
die leuke geluiden uit de CBM-64 haalt. 

Woodpecker 

De eerste heet woodpecker en doet zoals verwacht een 
specht na. 

1 rem woodpecker 

2 rem door virgil 

3 rem van maanen 

4 rem uit 

5 rem culemborg ! 

6 rem 
10 e=0 

20 ss=54272 

30 v=ss+24:ad=ss+5:sr=ss+6:w=ss+4 
40 poke v,15 

50 poke ad, 0:poke sr,240 
60 poke ss+1,65 
70 poke w,103 
80 poke w,0 
90 poke w,17 
100 poke w,0 
110 poke w,32 
120 poke w,0 

130 e=e+l:if e=20 then end 
140 goto 20 

Skenner 

De tweede is een skenner die de CBM-64 een scanner laat 
imiteren, wilt u wel eerst al het glaswerk uit de kamer ha¬ 
len! 

1 rem skenner ! 

2 rem door virgil 

3 rem van maanen 

4 rem uit 

5 rem culemborg 

7 rem 

10 for a=l to 10 
20 s=54272:poke s+24,15 
30 poke s+5,9:poke s+4,129 
40 k=l 

50 poke s+4,65:poke s+3,8 
60 poke s,0:poke s+1,100 
70 for t=l to 60:nextt 
80 poke s+4,64:for c=0 to 6 
90 poke s+1,c*15+150 
100 next c:poke s+4,0 
110 k=k+l:if k=2 then 80 
120 for t=l to 250:next t:next a 


De derde maakt een tokkel geluid, leuk effect voor eigen 
spelletjes te gebruiken. 

1 rem tokkelgeluid 

2 rem door virgil 

3 rem van maanen 

4 rem uit 

5 rem culemborg 
10 print chr$(147) 

20 ss=54272 

30 for i=ss to ss+24 
4 0 poke i,0 
50 next i 
60 poke ss + 24,15 
70 poke ss+5,0:poke,ss+6,249 
80 poke ss,75:poke ss+1,34 
90 poke ss+4,17 
100 poke ss+4,129 
110 poke ss+4,0 
120 for t=l to 50:next t 
130 goto 90 

Vogelzang 

De laatste van Virgil leek na het overnemen van de inge¬ 
zonden listing meer op een geigerteller,maar na het verbe¬ 
teren van een foutje in de listing was het wat het zijn 
moest, vogelenzang. 

1 rem vogelenzang 

2 rem door virgil 

3 rem van maanen 

4 rem uit 

5 rem culemborg 
7 rem 

10 print chr$(147)tab(15)"vogelenzang " 

20 s=54272:poke s+24,15:poke 53280,0: 

poke53281,0:poke 646,1 
30 poke s+5,0:poke s+6,240 
40 poke s+1,65 
50 poke s+4,17 

60 for a=0 to 39:print "-";:next a 
70 ad=rnd(1)*255 
80 if ad<220 then ad=0 
90 poke s+1,ad 
100 goto 70 

Borderflitser 

Borderflitser door M.Ramakers laat de border knipperen 
via de interrupt, dus U kan gewoon verder werken. Door 
het getal 32 (dit is het 15e in de dataregel) te veranderen 
in 33 gaat het scherm knipperen. Verander dan wel even 
de checksum van 2013 naar 2014. 

1 rem m.ramakers 

10 for i=0 to 18:read a:poke 49152+i, 
a: x=x+a 

15 next:if x<>2013 then prinfdatafou 
t":end 

20 sys 49152 

25 data 120,169,13,141,20,3,169,192,1 
41,21,3,88,96,238,32,208,76,49,234 
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OO0O OO0O 


Historywriter 

Historywriter van Bart Jan Moree laat U zinnen intypen,en 
na het drukken op shift/return wordt deze zin incl. gebruikte 
crsr en inst/del toetsen weer op het scherm afgedrukt. 

1 rem *** history writer *** 

2 rem ** door bart jan moree ** 

3 rem * uit zuidland * 

4 rem 

10 print "{SHIFT CLR}{CTRL 4}":poke 5 
3281,3:poke 53280,3:poke 646,l:i=0 
:y=0 

20 poke 204,0:get a$:if aS="” then 20 

30 if a$=chr$(141) then 50 

40 print aS;:i=i + l:poke 8192 + i,asc(a$ 

):goto 20 

50 if peek(207) then 50 
60 input"{SHIFT CLR}snel{SPACE}of{SPA 
CE}langzaam!SPACE} (s/1)";a$:if a$ = 

"1" then y=100 

70 print "{SHIFT CLR}":for b=l to £«p 
rintchr$(peek(8192+b));:for j=Ö to 
y:next j,b 

vertikaal-scroller 

Verticaal-scroller van Bart Jan Moree als variatie op de 
horizontaal-scrollers. 

1 rem *** verticale scrolling *** 

2 rem ** door bart jan moree ** 

3 rem * uit zuidland * 

4 rem 

10 c=l:printchr$(147):poke53281, 0:pok 
e53280,0:poke646,1 

20 input,"max.{SPACE}60{SPACE}karakter 
s{SPACE}";a$(c) 

30 get b$:if b$=""then30 
40 if b$=chr$(13) then c=c+l:goto60 
50 if b$Ochr$ (141) then 30 
60 printchr$(147):ford=lto24:print:ne 
xt 

70 fore=ltoc:forf=ltolen(a$(e)):print 
tab(19)mid$(a$ (e),f,1) : forg=ltol00 
80 nextg,f,e:end 

Color-cursor 

Color-cursor van Bart Jan Moree verandert tijdens het ty¬ 
pen steeds de cursor van kleur wat byv. zeer gekleurde 
listings geeft. 

1 rem *** color - cursor *** 

2 rem ** door bart jan moree ** 

3 rem * uit zuidland * 

4 rem 

10 fori = 49152to49170:reada:pokei, a: 
next:sys49152 

20 data 88,169,13,141,20,3,169,192,14 
1,21,3,120,96, 238, 134, 2, 76, 49, 234, 

234 


Blokfluit 

Dit programma van Bart Jan Moree had geen naam mee¬ 
gekregen, maar het leek het meest op een blokfluit, met 
steeds een ander deuntje. 


10 

poke 

54277 

, 190 

poki 

a 54278,: 

25:poke 


5429 

6, 15 





20 

for 

AJ- 

II 

M 

r+ 

O 

8:g= 

int 

(8*rnd(l 

) )+l 

30 

on g 

goto 

100,1 

01, 

102,103,: 

104,105, 


106, 

107 





40 

poke 

54273 

, a:poke 

54272, b 


50 

poke 

54276 

, 17:read 

c : f or i : 

=1 to c: 


next 






60 

poke 

54276 

,16:next 

: restore 

:goto 20 

100 

a=53 

b=134 

: goto 

40 



101 

a=3 9 

b=22 3 

: goto 

40 



102 

a=47 

b=107 

: goto 

40 



103 

a=53 

b=57 

: goto 

40 



104 

a=5 9 

b=190 

: goto 

40 



105 

a=71 

b=12 

: goto 

40 



106 

a=7 9 

b=191 

: goto 

40 



107 

a=71 

b=12 

: goto 

40 



1000 

dat; 

a 50,50,200 

, 150,150,50, 

, 150, 800 


scroll 

Scroll van Benno Goede uit bergen doet het in basic, tekst 
intypen en 'look your CBM-64 is alive’ verander de 100 in 
regel 21 en 150 als de tekst langer dan 100 karakters moet 
zijn. 

1 rem"{SPACE}gemaakt{SPACE}door{SPAC 
E}benno{SPACE}goede 

2 rem"{SPACE}ruinelaan{SPACE}31{SPAC 
E}bergen{SPACE}(n-h) 

3 rem "- 

9 poke 53280,0:poke53281, 0:poke646, 7 
:printchr$(147) 

10 gosub 110 

20 printchr$(147):poke53272,22 

21 forx=0tol00 
30 letu=0 

40 leta=peek(16384+x) 

50 pokel063,a:pokelO64,32 
60 letw=peek(1025+u) 

70 pokel024+u,w 
80 u=u+l 

90 if u<41 then60 

100 nextx 

101 printchr$ (147) :end 

110 input"tekst{SPACE}:" ; q$ 

120 forp=ltolen(q$) 

130 pokel6384+p-l,asc(mid$(q$,p,1)) 

140 nextp 

150 forp=len(q$)tolOO 
160 poke 16384+p,32 
170 nextp 
180 return 
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Cheoksum C-64 


1 3TOXIV ****************************** 


Het overtikken van een listing kan een heel kar¬ 
wei zijn en als u een beetje normaal mens bent, 
dan maakt u daarin beslist een aantal fouten. Nu 
is niets moeilijker da fouten uit je eigen werk te 
halen. Al geruime tijd heeft Jan Bodzinga hier¬ 
voor een zgn. Checksum-programma geschre¬ 
ven. Om de vele nieuwe lezers van Commodore- 
info te helpen volgt hieronder nog een keer een 
volledige uitleg over de werking van dit program¬ 
ma, waarmee het, hoe vreemd dat misschien ook 
lijkt, echt mogelijk is om met behulp van dit pro¬ 
gramma de fouten in elke door ons geplaatste lis¬ 
ting op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een dis¬ 
kette of cassette. 

2. U tikt het RUN commando in. Mocht het pro¬ 
gramma de boodschap 'FOUT in dataregels!’ ge¬ 
ven dan heeft u een fout bij het overtikken ge¬ 
maakt. Herstel dan de fout en SAVE de verbeter¬ 
de versie. Mocht het programma met de bood¬ 
schap 'data is weggezet checksum testen met 
sys...'komen dan is tot dusver alles goed. Het 
programma is nu in een stukje machine- 
taalgeheugen gezet. Als u het NEW-commando 
geeft, blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Ba¬ 
sic geschreven. 

Als u een programma heeft overgetikt, SAVE het 
eerst; mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu 
een programma op fouten wilt gaan controleren, 
kunt u dat in het geheugen ladenjwel eerst het 
checksum programma hebben gerund). Vervol¬ 
gens typt u zonder het programma te runnen de 
opdracht sys 49152(c-64) of sys 1536 (c-16 en 
plus/4) in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons ge¬ 
plaatste programma. Wijkt nu een nummer achter 
een regelnummer af van het nummer dat in het 
blad staat dan heeft u in die regel iets anders 
ingetikt dan er in het blad stond. U kunt de 
stroom getallen met de RUN/STOP toets pauze¬ 
ren en weer vervolgen met de F1 of F7 toets. Het 
is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze 
listingservice telefoonlijn. (Maandag 17.00 - 21.00 
uur. Telefoonnummer 02155-25162.) 

De laatste tijd wordt er weer veel gebeld zodat U 
nogwel eens in gesprek krijgt, daarom houdt uw 
vraag kort, vermeld in welk blad het desbetreffen¬ 
de artikel stond. Heeft U veel vragen, of is uw 
vraag erg uitgebreid, doe het dan schriftelijk, zo¬ 
dat we veel mensen op de maandag avond te 
woord kunnen staan. 


2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new" 

4 rem blijft dit programma in het ge- 

5 rem heugen, laad het te testen pro- 

6 rem grairana en tik daarna sys 49152. 

7 rem ****************************** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelezen 
30 pokei,a:i=i+l:b=b+a:goto20 
40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut [SPACE] in [SPACE] dataregels!":b=0:end 
50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 
70 pokei,a:b=a+b:i=i+l:goto60 
80 if b<>20068thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dat arege1s! [SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 print"data[SPACE]is[SPACE]weggezet" 

95 print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73,192 

120 data 32,73,192,208,1,96,32,225,255,208 

130 data 3,76,116,164,32,81,192,32,73,192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 
77,163 

180 data 96,162,0,189,123,192,240,6,32,210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 
169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32,0 
230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


Checksum Checksum C-64 


REGEL 

1 

249 

REGEL 

100 

183 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

183 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

' 6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 

38 

REGEL 

190 

73 

REGEL 

40 

57 

REGEL 

200- 

79 

REGEL 

50 

14 

REGEL 

210 

109 

REGEL 

55 

2 51 

REGEL 

220 

106 

REGEL 

60. 

192 • 

REGEL 

230 

225 

REGEL 

70 

42 

REGEL 

240 

16 

REGEL 

80 

244 

REGEL 

250 

163 

REGEL 

90 

245 

REGEL 

260 

92 

REGEL 

95 

237 

REGEL 

270- 

22 


28 
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PRINT OUT C-64 met o.a. Movie 


Super Lichtkrant 


Wel vaker plaatsten wij een lichtkrant, maar de 
een stelt wat andere eisen dan de ander, daarom 
heeft de maker van dit programma, Rcland van 
de Klippe, iets extra bedacht. Een tekst loopt 
midden in het scherm door en loopt ook nog 
eens dwars door de zijborder heen. Een prachtig 
staaltje programmeerwerk! 

100 rem ** super licht krant ** 

110 rem ** by rolosoft ** 

120 rem 

130 poke53280,0:poke53281,0:poke646,1 

140 print"[SHIFT-CLR][CRSR-DOWN][7xCRS 
R-RIGHT]super-licht-krant" 

150 print"[2xCRSR-RIGHT][2xCRSR-DOWN]m 
et[SPACE]deze[SPACE]lichtkrant[SPA 
CE]gaan[SPACE]de[SPACE]letters" 

160 print"[2xCRSR-RIGHT]dwars[SPACE]do 
or[SPACE]de[SPACE]zijborder[SPACE] 
heen" 

170 print"[2xCRSR-RIGHT]de[SPACE]lette 
rs[SPACE]zelf[SPACE]zijn[SPACE]van 
[SPACE]sprites[8xSPACE]gemaakt" 

180 print"[2xCRSR-RIGHT]deze[SPACE]lic 
htkrant[SPACE]start[SPACE]je[SPACE 
]op[SPACE]met" 

190 print"[2xCRSR-RIGHT]sys[SPACE]4915 
2" 

200 print"[2xCRSR-RIGHT]stop[SPACE]de[ 

SPACE]lichtkrant[SPACE]dmv[SPACE]t 
egelijk" 

210 print"[2xCRSR-RIGHT]op[SPACE]de[SP 
ACE]run/stop[SPACE]en[SPACE]restor 
e[SPACE]te[SPACE]drukken" 

220 print"[3xCRSR-DOWN][5xCRSR-RIGHT]e 
ven[SPACE]wachten[SPACE]a.u.b." 

230 gosub380:print"[3xCRSR-DOWN][8xCRS 
R-RIGHT]<[SPACE]druk[SPACE]op[SPAC 
E]een[SPACE]toets[SPACE]>" 

240 geta$:ifa$=""then240 
250 print"[SHIFT-CLR][4xCRSR-DOWN][3xC 
RSR-RIGHT]keuze:" 

260 print"[lOxCRSR-RIGHT]1)lichtkrant[ 
SPACE]bekijken" 

270 print"[lOxCRSR-RIGHT]2)tekst[SPACE 
]invoeren" 

280 geta$:ifa$=""then280 

290 ifa$="l"thensys49152 
300 ifa$="2"then320 

310 goto280 

320 input"[SHIFT-CLR]typ[SPACE]text";a 

$ 

330 fori=ltolen(a$) 

340 poke49511+i,asc(mid$(a$,i,1)) 

350 next 

360 poke49511+i,32:poke49512+i,0 

370 goto250 
380 a=49152 

390 readx$:fori=ltolen(x$)/2:x=10*(asc 
(mid$(x$,i*2-l))-65)+asc(mid$(x$,i 
*2))-48 

400 pokea,x:a=a+l:next:ifa<49585goto39 
0 

410 return 

420 data q9u0olc2u8q9a0old2u8old3u8d2g 


8w9q9a8n3q7d2g5t2d2c9t2h6c6t2m0q9a 

0olb4 

430 data W0q9m5q2t2olc0a3o2cla3q9o9olb 
8u8q9alolc6u8r3b7u8elm7olb7u8i8j6q 
2a0s9 

440 data i7t3p7a0u8x2w4b7u8y5q9z5olclu 
8olc9u8q9a7q8p3d9u8n6b6z0q2z5q0a7n 
8p3y8 

450 data a7u2n6b6y8q0a0p2p3a0glp3a0g2p 
3a0g3u0u8y4h6h8t3q2a7u2u8z3x4x4q2c 
2d6x4 

460 data u6e2u8x8c2u8r2b8u8n6x4p2ela7a 
9c4olb7u8x4x4x4x4u2b6w8q9c7olb7u8q 
9alol 

470 data C5u8d2s3t2q2ylu2u8z3h6s8z4q2a 
0c4g2a0glg2u0g3g2t9g3g2t8g3g2n6g3g 
2n5g3 

480 data g2n4g3g2h2g3g2hlg3g2h0g3g2a8g 
3g2a7g3g2a6g3g2u0g2g2t9g2g2t8g2g2n 
6g2g2 

490 data n5g2g2n4g2g2h2g2g2hlg2g2h0g2g 
2a8g2g2a7g2g2a6g2x2x2x2w4c4u8r3t8q 
7u8h0 

500 data q0a0n2zlr7p8b0d8zlb0d8zlb0d8z 
In3z0q5zlk5v6n3zlq2a0q0a0q9fln3alr 
7z0p7 

510 data a0glx2x2x2u0t2a8u8y3n2q7q9f5n 
3alx0p8u8a2x0p9q0a0r7p8u8a8q9k4q2t 
3n3p8 

520 data n4p9j6ylplelpli9pln7pls5plx3p 
Ic5plh3plt3i3i5i0g9i2d2h6h3g7h2i4d 
2h5i2 

530 data g5h8i4d2d2hlg9h7g5g5h5i4d2i6h 
9h9i2d2g7h9h7h7h9g8h9i2g9d2h3h8h0h 
9d2d2 

540 data g8h9h9i2d2i2h9h6h9i3h9h0i4e6e 

6e6e6e6d2d2d2d2a0a0a0 

EINDE LISTING li-krant 


Checksum Licht-krant 


REGEL 

100 

186 

REGEL 

380 

248 

1 o 

REGEL 

110 

74 

REGEL 

390 

84 

! 

REGEL 

120 

143 

REGEL 

400 

78 

1 

REGEL 

130 

243 

REGEL 

410 

142 

I 

REGEL 

140 

41 

REGEL 

420 

130 

S o 

1 

REGEL 

150 ■ 

254 

REGEL 

430 

150 

REGEL 

160 

32 

REGEL 

440 

30 

i 

i 

REGEL 

170 

56 

REGEL 

450 

160 

i 

1 

REGEL 

180 

213 

REGEL 

460 

232 

1 

REGEL 

190 

27 

REGEL 

470 

128 

o 

REGEL 

200 

16 

REGEL 

480 

224 

REGEL 

210 

13 ' 

REGEL 

4 90 

61 

1 

REGEL 

220 

59 

REGEL 

500 

164 


REGEL 

230 

16 

REGEL 

510 

237 

O 

REGEL 

240 

99 

REGEL 

520 

106 

REGEL 

250 

201 

REGEL 

530 

9 

REGEL 

260 

144 

REGEL 

540 

116 

1 

1 

REGEL 

270 

75 




1 

1 

REGEL 

280 

103 




! o 

REGEL 

290 

97 




REGEL 

300 

84 




i i 

REGEL 

310 

'35 




i 

REGEL 

32 0'- 

62 





REGEL 

330 

202 




o 

REGEL 

34 0 

35 




REGEL 

350 

130 . 




. 1 

REGEL 

360 

68 




1 

REGEL 

370 

32 




! 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


Programma movie 


Roland van de Klippe uit Lemelerveld is ook de 
maker van dit programma, een interrupt program¬ 
ma waarmee het hele beeldscherm beweegt in 
golven, met als grote bijzonderheid, dat je ge¬ 
woon door kan gaan met intypen van tekst. Na 
een paar minuten zo te hebben gewerkt lijkt het 
als of je verschillende glazen hebt gedronken. 

10 rem *********************** 

20 rem ** movie screen ** 

30 rem * * 

40 rem ** by rolosoft ** 

50 rem *********************** 

100 print"[SHIFT-CLR]":poke53280,0:pok 
e53281,0:poke646,1 

110 print”[SHIFT-CLR][CRSR-DOWN][4xCRS 
R-RIGHT]**[2 xSPACE]movie[SPACE]scr 
een[2xSPACE]by[SPACE][CTRL-9]rolos 
oft [CTRL-0] [SPACE]**" 

120 print"[2xCRSR-DOWN][2xCRSR-RIGHT]d 
it[SPACE]programma[SPACE]is[SPACE] 
een[SPACE]interrupt[SPACE]pro-" 

130 print"[2xCRSR-RIGHT]gramma,[SPACE] 
het[SPACE]werkt[SPACE]dus[SPACE]te 
gelijk[SPACE]met[öxSPACE]basic" 

140 print"[CRSR-DOWN][2xCRSR-RIGHT]sta 
rt[SPACE]dit[SPACE]programma[SPACE 
]met[SPACE]sys[SPACE]49152" 

150 print"[5xCRSR-DOWN][5xCRSR-RIGHT]e 
ven[SPACE]wachten[SPACE]voor[SPACE 
]een[SPACE]demo" 

160 gosublOOO:print"[CRSR-DOWN][6xCRSR 
-RIGHT]<[SPACE]druk[SPACE]op[SPACE 
]een[SPACE]toets[SPACE]>" 

170 geta$:ifa$=""thenl70 

180 print"[SHIFT-CLR]":fork=1024to2023 
step2:pokek,160:next 
190 sys49152 

200 print"[HOME][llxCRSR-DOWN][7xCRSR- 
RIGHT]<[SPACE]druk[SPACE]op[SPACE] 
een[SPACE]t oet s[SPACE]>" 

210 geta$:ifa$=""then210 
220 end 
1000 a=49125 

1010 readx$:fori=ltolen(x$)/2:x=10*(asc 
(mid$(x$, i*2-l))-65)+asc(mid$(x$,i 
*2))-48 

1020 pokea,x:a=a+l:next:ifa<49346gotol0 
10 

1025 return 

1030 data 14c4b6m9a0a0a0a0q9tlq0tld2e0s 
6q512k5i0o4a3d2d5s8h6a0w4m0q9f8olc 
0a3q9 

1040 data t2olcla3q9a0olb4w0q9ylolc6u8q 
9d2olb8u8r3b7u8elm7olb7u8i8x4x4q9t 
9n3q7 

1050 data q9h2n3q5q9b2n3q6q9a5n3q9q9g4n 
3q8 j 6q5q7x4x4x4q6q8r3b8u8ulz5y0c4r 
3b8u8 

1060 data U5b8u8y0zls9m8t2olc2u8x4x4x4u 
2u8w9q2g4u8w5t8q8u8a4q9g4n3q8q9u0o 
Ic2u8 

1070 data q9alolc5u8q9ylolc6u8h6e9x4d2a 
2a5a5b6d2u0ü0u0u0ululululu2u2u2u2u 
3u3u3 


1080 data u3u4u4u4u4u4u4u5u5u5u5u5u5u6u 
6u6u6u7u7u7u7u7u7u7u7u7u6u6u6u6u5u 
5u5u5 

1090 data u4u4u4u3u3u3u2u2u2ulululu0u0u 
0u0z5 

EINDE LISTING movie_ 


Checksum Movie 


REGEL. 

10 

85 

REGEL 

210 

96 

REGEL 

20 

119 

REGEL 

220 

128 

REGEL 

30 

227 

REGEL 

1000 

248 

REGEL 

40 

74 

REGEL 

1010 

84 

REGEL 

50 

1 85 

REGEL 

1020 

111 

REGEL 

100 

157 

REGEL 

1025 

142 

REGEL. 

110 

148 

REGEL 

1030 

35 

REGEL 

120 

31 

REGEL 

1040 

206 

REGEL 

130 

233 

REGEL 

1050 

29 

REGEL 

140 

39 

REGEL 

1060 

87' 

REGEL 

150 

62 

REGEL 

1070 

201 

REGEL 

160 

218 

REGEL 

1080 

233 

REGEL 

170 

101 

REGEL 

1090 

128 

REGEL 

180 

208 




REGEL 

190 

163 




REGEL 

200 

44 





Shoot a skeet 


Kleiduiven spelen een hoofdrol in dit spel deze 
moeten in dit spel uit de lucht geschoten worden. 
De maker van dit programma is ook al geen on¬ 
bekende n.l. Roland van der Klippe. 

10 rem ***************** 

20 rem * shoot a skeet * 

30 rem * by rolosoft * 

40 rem ***************** 

50 rem * werkt niet met powercartridg 

e * 

100 gotol420 

110 sk=2:tg=l:hn$(1)="shoot[SPACE]a[SP 
ACE]skeet":hn$(2)="[2xSPACE]writte 
n[2xSPACE]":hn$(3)="[5xSPACE]by" 

120 hn$(4)="[2xSPACE]rolosoft":hn$(5)= 

"[5xSPACE]in":hn$(6)="[4xSPACE]198 
8" 

130 hs(1)=23:hs(2)=20:hs(3)=18:hs(4)=1 
6 : hs (5) =14 : hs (6) =12 

140 poke54277,0:poke54278,0:poke54276, 

0 

150 poke54296,06:poke54277,1:poke54278 

,210:poke54276,17 
160 poke53280,0:poke53281,0 

170 print"[SHIFT-CLR][5xCRSR-DOWN][9xC 
RSR-RIGHT][CTRL-2]--[CTRL-5]shoot[ 
SPACE]a[SPACE]skeet[CTRL-2]—" 

180 print"[2xCRSR-DOWN][12xCRSR-RIGHT] 
[CTRL-6]by[SPACE]rolosoft" 

190 print"[2xCRSR-DOWN][12xSPACE][COM- 
5]instructions" 

200 print"[12xSPACE][12xCOM-T]" 

210 print"[CRSR-DOWN][CTRL-2]attempt[S 
PACE]to[SPACE]shoot[SPACE]as[SPACE 
]many[SPACE]skeets[SPACE]as" 

220 print"[CRSR-DOWN]possible[SPACE]wi 
th[SPACE]your[SPACE]j oystick[SPACE 
]in[SPACE]port[SPACE]2." 


O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 
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o 1 


r.' 


O 


o 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


O 


O 

1 

1 

1 

1 

230 

print"[CRSR-DOWN]you[SPACE]have[SP 
ACE ] a [ SPACE ] maximum [ SPACE ] of [ SPACE 
] 25[SPACE]skeets[SPACE]to[SPACE]tr 

o 

I 

1 

240 

y 

print"[CRSR-DOWN]and[SPACE]shoot. [ 

1 

! 

1 

250 

2xSPACE]good[SPACE]luck[SPACE] !!!" 
print"[CRSR-DOWN][COM-3]press[SPAC 
E]fire[SPACE]button[SPACE] !! !" 


o 

1 

I 

260 

if ((peek(56320)andl6)<>16)then2 8 0 

1 

j 

270 

nt=int(rnd(l)*255):poke54273,nt:po 
ke54274,nt:goto260 


o 

' I 
i ■ 

1 

280 

poke54296,0:poke54277,0:poke54278, 

0:poke54276, 0 

1 

1 

I 

1 

f 

1 

290 

print" [SHIFT-CLR][2xCRSR-DOWN][CTR 
L 8][6xSPACE]s[SPACE]h[SPACE]o[SPA 
CE]o[SPACE] t [3xSPACE]a[3xSPACE]s[S 
PACE]k[SPACE]e[SPACE]e[SPACE]t" 

o 

1 

1 

1 

1 . 

300 

print"[3xCRSR-DOWN] [ COM-8 ] the [ SPAC 
E]current[SPACE]skill[SPACE]level [ 
SPACE]=[SPACE]"sk 



1 

310 

print"[2xCRSR-D0WN]the[SPACE]curre 

o 

1 

1 

1 

1 

1 

320 

nt [ SPACE ] target [ SPACE ] speed [ SPACE ] 

=[SPACE]"tg 

print"[2xCRSR-DOWN][COM-3]would [ SP 
ACE ] you [ SPACE ] like [ SPACE ] to [ SPACE ] 

o 

1 

1 

1 


change[SPACE]this[SPACE]?[SPACE](y 
/n) " 


1 

330 

get a$:ifa$=""then330 



340 

ifa$<>"y"and a$O"n"then330 

o 

I 

350 

ifa$="n"then540 

1 

1 

1 

360 

print"[SHIFT-CLR][CRSR-DOWN][CTRL- 
8]l=impossible...2=hard...3=normal" 



I 

370 

print"[CRSR-DOWN]4=easy..,5=like[S 
PACE]a[SPACE]snowflake" 

o 

I 

1 

1 

1 

380 

print"[2xCRSR-DOWN][CTRL-7]please[ 
SPACE]enter[SPACE]new[SPACE]level[ 
SPACE](1-5)..." 



1 

390 

getsk$ 

o 

1 

1 

400 

printtab(30)"[CRSR-UP][CTRL-6][COM 
+ ] " 

printtab(30)"[CRSR-UP][CTRL-2][COM 
+ ] " 

ifsk$<>""thenprinttab(30)"[CRSR-UP 


1 

1 

410 

o 

I 

420 

1 

1 

430 

][CTRL-4]"sk$:goto440 
goto390 



1 

440 

sk=val(sk$) 


1 

450 

ifsk<lorsk>5then380 

o 

1 

1 

460 

print"[SHIFT-CLR][CRSR-DOWN]l=fast 

1 


. . .2=medium. . .3=slowish" 

o 

I 

1 

1 

j 

470 

print"[2 xCRSR-DOWN] [CTRL-7]please[ 
SPACE]enter[SPACE]new[SPACE]speed[ 
SPACE] (1-3) ..." 

1 

480 

gettg$ 


I 

490 

printtab(30)"[CRSR-UP][CTRL-6][COM 


1 


+ ]" 

o 

1 

! 

1 

500 

printtab(30) " [CRSR-UP][CTRL-2][COM 

+ 3" 


1 

1 

510 

iftg$<>""thenprinttab(30) " [CRSR-UP 
][CTRL-4]"tg$:goto530 

o 

1 

1 

520 

goto480 

1 

1 

530 

tg=val(tg$) 


1 

540 

iftg<lortg>3then470 


1 

550 

iftg=lthengt=160:goto580 


1 

1 

560 

iftg=2thengt=200 : goto580 

o 

1 

1 

570 

gt=255 

1 

580 

poke828,sk:poke49351, gt 


1 

1 

1 

590 

print"[SHIFT-CLR][12xCRSR-DOWN][13 
xSPACE][CTRL-5][SPACE ] get [ SPACE ] re 

o 

1 

1 





ady" 

! o 

600 

fort=lto2000:next 

1 

1 

610 

print " [SHIFT-CLR]":poke532 8 0,3:pok 
e53281,6:gosubl090 

i- 

i 

620 

v=53248:poke2040,203 

o 

630 

pokev+28,6:pokev+40,0:pokev+41,0:p 
okev+38,0:pokev+37,0:sys49152:poke 
681,0 

640 

h=l:s=0 

o 

650 

sys49968 

660 

n=int(rnd(1)*4)+1 


670 

ifn=lthenpoke820,0:goto710 


680 

y=int(rnd(1)*145)+60 

o 

690 

poke820,y:s=s+l 

700 

ifn=3thenpoke821,0:goto730 


710 

y=int(rnd(1)*145)+60 


720 

poke821,y:s=s+l 


730 

pokev+21,7 

! o 

740 

sys49168 

750 

pokev+21,1 


760 

ifpeek(822)=lthenh=h+l 


770 

ifpeek(823)=lthenh=h+l 

o 

780 

ifs>25thenpoke53269,0:h=h-l:goto800 

790 

goto650 


800 

poke53280,0:poke53281,0:poke53272, 

21 


810 

print"[SHIFT-CLR][12xCRSR-DOWN][10 
xSPACE][CTRL-2]you[SPACE]hit[SPACE 
]"h"[SPACE]skeets" 

o 

820 

fort=lto2000:next 


830 

forg=lto6 

o 

840 

ifh>hs(g)theni=g:goto870 

850 

nextg 


860 

ifi=0then890 


870 

forj=6togstep-l:hn$ ( j+l)=hn$ ( j):hs 
( j+l)=hs ( j) : next j 

o 

880 

hs(i)=h 


890 

z=6:print"[SHIFT-CLR][2xCRSR-D0WN] 

[ 13xSPACE ][ COM-6 ] hal1 [ SPACE ] of [ SPA 

CE]fame" 

° 

900 

forh=lto6:print"[2xCRSR-DOWN][CTRL 

7]"h") " :next 


910 

h=l : print"[HOME][2xCRSR-D0WN] " 

o 

920 

ifh=ithenprint"[2xCRSR-DOWN]":goto 

940 

930 

printtab(5)"[2xCRSR-D0WN][COM-3]"h 
n$(h) 


940 

h=h+l 

o 

950 

ifh>zthen97 0 

960 

goto920 


970 

ifi=0thenl040 


980 

print"[HOME][23xCRSR-DOWN]"tab(12) 

"[CTRL-4]enter[SPACE]your[SPACE]na 
me" 

° 

990 

print"[HOME][2xCRSR-DOWN] 


1000 

forj=ltoi:print"[2xCRSR-DOWN] " :nex 

1 

o 


t j 

1010 

input"[CTRL-8][4xCRSR-RIGHT]";hn$ ( 
i) 

iflen (hn$(i))>15thenhn$(i)=left$(h 


1020 



n$(i),15) 

o 

1030 

i=0:goto890 

1040 

print"[HOME][2xCRSR-DOWN] " :forh=lt 

1 


o6:printtab(20) " [2xCRSR-DOWN][CTRL 

6]"hs (h) 

° 

1050 

next 

1060 

print"[CRSR-DOWN][CTRL-5][12xSPACE 



]push[SPACE]fire[SPACE]button" 

o 
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1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 


1190 


1200 

1210 

1220 

1230 

1240 

1250 

1260 


1270 

1280 


1290 

1300 


1310 


1320 


1330 


1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 


if ( (peek(56320) andl6) <>16) thenl40 1430 

gotol070 1440 

rem *** draw screen *** 1450 

poke53272,29 1460 

print"[40xSPACE]1470 

print" [40xSPACE] "; 1480 

print" [40xSPACE]1490 
print" [40XSPACE]"; 1500 

print" [40xSPACE]1510 
print" [40xSPACE] "; 1520 

print" [llxSPACE] [CTRL-2]PCDDQ[24xS 1530 

PACE]"; 1540 

print" [lOxSPACE][CTRL-2]FCDDCCQ[3x 1550 

SPACE][CTRL-1]R[öxSPACE]R[3xSPACE] 1560 

R[8xSPACE]"; 1570 

print" [llxSPACE][COM-5]PQCCDQ[SPAC 1580 

E][CTRL-1]R[SPACE]R[2xSPACE]R[CTRL 1590 

2]FCCQPQ[9xSPACE]"; 1600 

print" [15xSPACE][CTRL-1]R[2xSPACE] 1610 

R[SPACE]R[3xSPACE]R[16xSPACE]1620 
print" [17xSPACE][CTRL-1]R[SPACE]R[ 1630 

2xSPACE]R[17xSPACE]1640 
print" [40XSPACE]"; 1650 

print" [40xSPACE]1660 
print" [13xSPACE][CTRL-2]JKL[16xSPA 1670 

CE][CTRL-6]PQCCQ[3xSPACE]1680 
print" [12xSPACE][CTRL-2]IOOOM[15xS 1690 

PACE][CTRL-6]PCDCC[3xSPACE]"; 1700 

print" [llxSPACE][COM-1]HOOOOON[2xS 1710 

PACE][CTRL-2]GKL[9xSPACE][CTRL-6]P 1720 

CDCQ[3xSPACE]"; 1730 

print" [lOxSPACE][COM-1]GOOOOOOOLFO 1740 

OOM[ÖxSPACE][CTRL-6]PCDCC[3xSPACE]"; 1750 

print" [9xSPACE][COM-1]FOOOOOOOOOOO 1760 

OOON[ÖxSPACE][CTRL-6]D[COM-1]B[CTR 1770 

L 6]D[3xSPACE]" 1780 

print" [8XSPACE][COM-1]EOOOOOOOOOOO 1790 

OOOOOL[8xSPACE][COM-1]A[3xSPACE]" 1800 

print "[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1810 

OOOOOOOOOOOOOO[COM-1]A[CTRL-8]OOOO 1820 

O"; 1830 

print "[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1840 

OOOOOOOOOOOOOO[COM-1]A[CTRL-8]OOOO 1850 

O"; 1860 

print "[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1870 

OOOOOOOOOOOOOO[COM-1]A[CTRL-8]OOOO 1880 

O"; 1890 

print"[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1900 

OOOOOOOOOOOOOO[COM-1]B[CTRL-8]OOOO 1910 

O"; 1920 

print"[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1930 

OOOOOOOOOOOOOOOOOOOO"; 1940 

print" [CTRL-8]OOOOOOOOOOOOOOOOOOOO 1950 

OOOOOOOOOOOOOOOOOOOO"; 1960 

print"[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1970 

OOOOOOOOOOOOOOOOOOOO"; 1980 

print"[CTRL-8]OOOOOOOOOOOOOOOOOOOO 1990 

OOOOOOOOOOOOOOOOOOOO"; 2000 

print"[CTRL-8]OOOOOOOOOOOOOOOOOOOO 2010 

OOOOOOOOOOOOOOOOOOOO"; 2020 

print"[CTRL-8]OOOOOOOOOOOOOOOOOOOO 2030 

OOOOOOOOOOOOOOOOOOO[HOME]" 2040 

poke2023,79:pok@56295,7 2050 

return 2060 

print"[SHIFT-CLR][CTRL-8][12xCRSR- 2070 

DOWN][5xCRSR-RIGHT]please[SPACE]wa 2080 

it [SPACE]a[SPACE]moment":poke53280 2090 

,0:poke53281,0 2100 


x=49152:ln=1630 
gosub3180 

v=53248:c=12288:g=0 
poke56334,peek(56334)and254 
poke1,peek(1)and2 51 
forn=0to511 

pokec+n,peek(v+n);next 
poke1,peek(1)or4 
poke56334,peek(56334)orl 
poke53272,(peek(53272)and240)orl2 
rem 

x=12288+520:ln=2730 

gosub3180 

rem 

m=12992:g=0 
x=m:ln=2920:gosub3180 
m=m+64:x=m:ln=3010:gosub3180 
m=m+64:x=m:ln=3100:gosub3180 
poke53272,21:gotollO 
rem *** m/c *** 

datal69,7,141,21,208,169,100,141,956 
dataO,208,169,205,141,1,208,96,1028 
datal73,52,3,141,3,208,173,53,806 
data3,141,5,208,173, 57,3,141, 731 
data2,208,173,58,3, 141,4,208, 797 
datal73,0,220,41,8,201,8,240, 891 
data26,173,169,2,201,1,208, 3,783 
data76,245,194,173,0,208,24,105, 1025 
datal,201,255,208,3,32,228,194,1122 
datal41,0,208,173,0,220,41, 4,787 
data201,4,240,26,173,169,2,201, 1016 
dataO,208,3,76,27,195, 173,0, 682 
data208,56,233,1,201,0,208,3, 910 
data32,10,195,141,0,208, 173,0,759 
data220,41,2,201,2,240,15,173,894 
datal,208,24,105,1,201,230,208, 978 
data2,169,229,141,1,208,173,0,923 
data220,41,1,201,1,240,18,173, 895 
datal,208,56,233,1,201,50,208, 958 
data2,169,51,141, 1,208,76, 193, 841 
datal92,173,0,220,41,16,201,16, 859 
data240,3,32,40,193,169,1,141,819 
data39,208,173,54,3,201, 1,208,887 
data8,173,55,3,201, 1,208,1, 650 
data96,169,0,234,105,1,201,160, 966 
data240,3,76,195,192,173, 59, 3, 941 
data24,105,1,141,59,3,205, 60,598 
data3,240,3,76,28,192,169,0,711 
datal41,59,3,173,54,3,201,1, 635 
data240,26,173,61,3,201,1,208, 913 
data3,76,177,194,173, 57,3,24,707 
datal05,1,201,255,208,3,32,160,965 
datal94,141,57,3,173,55,3,201,827 
datal,240,26,173,62,3,201,1,707 
data208,3,76,211,194,173,58,3, 92 6 
data56,233,1,201, 0, 208,3,32,734 
datal94,194,141,58,3,76,28,192,886 
datal69,0,141,5,212,141,6,212,886 
datal41,4,212,169,15,141, 24,212, 918 
datal69,5,141,5,212,169, 9,141, 851 
data6,212,169,129,141,4,212,169, 1042 
data25,141,1,212,173, 54,3,201, 810 
datal,208,3,76,230,193,169, 0,880 
datal41,167,2,141,168,2,173,0,794 
data208,205,2,208,144,2,176,22, 967 
datal73,2,208,56,237,0, 208,201, 1085 
data7,17 6,8,169,1,141, 167,2,671 
data76,148,193,76,230,193,173, 0,1089 
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2110 data208,56,237,2,208,201,7, 176, 1095 
I 2120 data8,169, 1,141,167,2, 76,148, 712 
i 2130 datal93,76,230,193,173,1,208,205,1 
279 

J 2140 data3,208,144,2,176,22,173,3,731 
J 2150 data208,56,237,1,208,201,7,176,1094 
I 2160 data8,169,1,141,168,2,76,202,767 
i 2170 datal93,76,230,193,173,1,208,56,1130 
2180 data237,3,208,201,7,176,8,169,1009 
2190 datal,141,168,2,76,202,193, 7 6, 859 
I 2200 data230,193,173,167,2,201,1,240,1207 
2210 data3,76,230,193,173,168,2, 201,1046 
2220 datal,240,3,76,230,193,169,1, 913 
2230 datal41,54,3,32,115,194, 173, 55, 767 
I 2240 data3,201,1,208,1,96,169,0,679 
I 2250 datal41,167,2,141,168,2,173,0,794 
2260 data208,205,4,208, 144,2,176,20, 967 
2270 datal73,4,208,56,237,0,208,201, 1087 
i 2280 data7,176,8,169,1,141,167,2,671 
I 2290 data76, 40,194, 96,173, 0, 208, 56, 843 
2300 data237,4,208,201,7, 17 6, 8, 169, 1010 
j 2310 datal,141,167,2,76,40,194,96,717 
2320 datal73,1,208,205,5,208,144,2,946 
| 2330 datal76, 20, 173,5,208,56, 237, 1, 876 

I 2340 data208,201,7,176,8,169,1,141,911 
| 2350 datal68,2,76,90,194, 96,173,1,800 

2360 data208,56,237,5,208,201,7,176,1098 
2370 data8,169,1,141,168,2, 76, 90, 655 
I 2380 datal94, 96,173,167,2,201,1,240,1074 
j 2390 datal,96,173,168,2,201,1,240,882 
2400 datal,96,169,1,141,55,3,32,498 
2410 datal23,194,96,169,205,141,249,7,1 
I 184 

[ 2420 data76,128,194,169,205,141,250, 7,1 

170 

2430 datal69,0,141,19,212,141,20,212,914 
I 2440 datal41, 18,212,169,9,141,19,212,921 
2450 datal69,3,141,20,212,169,129,141,984 
2460 datal8,212,169,5, 141, 15,212, 96, 8 68 
2470 datal69,1,141,61,3,173, 16, 208,772 
| 2480 data24,105,2,141,16, 208, 169, 0, 665 

i 2490 data96,173,57,3,24,105,1,141,600 
2500 data57,3,201,88, 240,3, 76,4, 672 
2510 datal93,96,169,1,141,62,3,173,838 
I 2520 datalö,208,56,233,4,141, 16,208, 882 
I 2530 datal69,255,096,173,058,003,056,23 
3,1043 

2540 datal,141,58,3,201,0,240,3, 647 
2550 data76,28,192,96,169,1,141,169,872 
I 2560 data2,173,16,208,24,105,1,141,670 
2570 datal6,208,169,0,96,173,0,208,870 
2580 data24, 105,1,141,0,208,201, 64,744 
I 2590 data208,5,169,63,141,0,208,76,870 
I 2600 data75,192,169,0,141, 169,2, 173, 921 
2610 datal6, 208,56,233,1, 141, 16,208, 879 
2620 datal69,254,96,173, 0,208,56, 233, 1189 
I 2630 datal,141,0,208,201,20,208,5,784 
| 2640 datal69,21,141,0,208,76,110,192, 917 

2650 datal69,0,141,57,3,169, 88,141, 768 
2660 data58,3,169,0,141,54,3,141,569 
2670 data55,3,141,61,3,141, 62,3,4 69 
I 2680 datal73,169,2,201,1,208,5,169,928 
I 2690 data5,76, 86,195,169,4,141,16, 692 
j 2700 data208,169, 204,141,249, 7, 141,250, 
1369 

I 2710 data7,96,-1,103 

I 2720 rem *** sc graphs *** 

j 2730 data56,56, 248,120,56, 56, 56, 56, 704 


2740 data56,56,56,56, 56, 124, 124, 255, 783 
2750 data205,199,44,165,239, 118,208, 97, 
1275 

2760 data85,148,106,175, 84,40, 84,187, 909 
2770 datal,7,31,15,127,127,127,255, 690 
2780 datal,3,7,7,103, 127,255,255, 758 
2790 datal,1,1,3,7,15,127,255,410 
2800 datal,3,7,15,31,31,127,255,470 
2810 data3,7,31,31,63,63,127,255,580 
2820 dataO,O,O,7,63,127,127,255,579 
2830 datal,1,6,199,255,255,255,255,1227 
2840 datal92,240,248,248,252,252,254,25 
5,1941 

2850 datal28,128,192,192,192,240, 254,25 
5,1581 

2860 datal92,224,240,248,254,254,255,25 
5,1922 

2870 data255,255,255,255,255,255, 255,25 
5,2040 

2880 datal,7,31,59,51,27,23,15,214 
2890 datal92,248,200,190,234, 104, 158,25 
5,1581 

2900 dataO,O,102,102,24,24,O,O,-1,252 
2910 rem *** sprites *** 

2920 dataO,60,0,1,195, 128, 6, 0,390 
2930 data96,24,O,24,32,O,4,32,212 
2940 dataO,4,64,O,2,64,24,2,160 
2950 datal28,24,1,128,24,1,128,126,560 
2 960 datal, 128,24, 1, 128,24,1, 64,371 
2970 data24,2, 64, O, 2,32, O, 4,128 
2980 data32, O, 4,24, O, 24, 6, O, 90 
2990 data96,1, 195,128,0,60, O, -1,480 
3000 rem 

3010 dataO, O, O, O, O, O, O, O, O 

3020 dataO, O, O, O, O, O, O, O, O 

3030 dataO,O,O,O,O,O,255,O,255 

3040 data3, 186,192, 14,174,176,3,170,918 

3050 datal92,O,255,O,O,O,O,O,447 

3060 dataO, O, O, O, O, O, O, O, O 

3070 dataO, O, O, O, O, O, O, O, O 

3080 dataO, O, O, O, O, O, O,-1, O 

3090 rem 

3100 datal28,O,4,64,O,4,32,O,232 
3110 datall8,24,128,O,24,64,O,O,358 
3120 data32,192,0,16,192,56, 16, 0,504 
3130 data8,28,28,O,28,16,O,28,136 
3140 dataO,12,2,O,12,1,O,16,43 
3150 data49,48,O,33,16,O,O,O,146 
3160 dataO,O,O,7,O,O,128,6,141 
3170 dataO,224,6,3,224,0,3,-1,460 
3180 rem 
3190 rem 
3200 ct=l:ck=0 

3210 reada:ct=ct+l:ifa=-lthen3290 
3220 i£ct=10then32 60 
3230 ifa>255then3280 

3240 ck=ck+a 

3250 pokex,a:x=x+l:goto3210 
3260 ifckOathenprint'error [SPACE] in [SP 
ACE]line";ln:end 
3270 ln=ln+10:goto3200 

3280 print"data[SPACE]range[SPACE]error 
[SPACE]in[SPACE]line";ln:end 
3290 reada: ifaockthenprint "error [SPACE 
]in[SPACE]1ine[SPACE]";ln:end 
3300 return 
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Checksum Shootskeet 


REGEL 

10 

89 

REGEL 

910 

119 

REGEL 

1770 

15 

REGEL 

2630 

219 

REGEL 

20 

45 

REGEL 

920 

212 

REGEL 

1780 

69 

REGEL 

2640 

130 

REGEL 

30 

246 

REGEL 

930 

233 

REGEL 

1790. 

28 

REGEL 

2650 

51 

REGEL 

40 

89 

REGEL 

940 

29 

REGEL 

1800 

17 

REGEL 

2660 

191 

REGEL 

50 

168 

REGEL 

950 

'37 

' REGEL 

1810 

26 

REGEL 

2 670 

132 

REGEL 

100 

80 

REGEL 

960 

36 

REGEL 

1820' 

35 

REGEL 

2680 

38 

REGEL 

110 

147 

REGEL 

970 

34 

REGEL 

1830 

74 

REGEL 

2690 

4 

REGEL 

120 

255 

REGEL 

980 

119 

REGEL 

1840 

27 

REGEL 

2700 

31 

REGEL 

130 

106 

REGEL 

990 

77 

REGEL 

1850 

37 

REGEL 

2710 

159 

REGEL 

140 

104 

REGEL 

1000 

218 

REGEL 

1860 

125 

REGEL 

2720 , 

230 

REGEL 

150 

11,3 

REGEL 

1010 

106 

REGEL 

1870 

81 

REGEL 

2730 

49 

REGEL 

160 

37 

REGEL 

1020 

182 

REGEL 

1880 

46 

REGEL 

2740 

102 

REGEL 

170 

110 

REGEL 

1030 

143 

REGEL 

1890 

234 

REGEL 

2750 

50 

REGEL 

180 

140 

REGEL 

1040 

139 

REGEL 

1900 

187 

REGEL 

2760 

159 

REGEL 

190 

76 

REGEL 

1050 

130 

REGEL 

1910 

17.9 

REGEL 

2770 

30 

REGEL 

200 

129 

REGEL 

1060 

204 

REGEL 

192 0 

17 

REGEL 

2780 

191 

REGEL 

210 

110 

REGEL 

1070 

93 

REGEL 

1930 

254 

REGEL 

2790 

17 

REGEL 

220 

134 

REGEL 

1080 

81 

REGEL 

1 94 0 

70 

REGEL 

2800 

125 

REGEL 

230 

219 

REGEL 

1090 

121 

REGEL 

1950 

34 

REGEL 

2810 

186 

REGEL 

240 

55 

REGEL 

1100 

49 

REGEL 

1960 

170 

REGEL 

2820 

136 

REGEL 

250 

118 

RECEL 

1110- 

24 

REGEL 

1970 

4 3 

REGEL 

2830 

90 

REGEL 

260 

98 

REGEL 

1120 

24 

REGEL 

1980 

170 

REGEL 

2840 

137 

REGEL 

270 

131 

REGEL 

1130 

24 

REGEL 

1990 

110 

REGEL 

2850 

137 

REGEL 

280 

159 

REGEL 

1140 

24 

REGEL 

2000 

26 

REGEL 

2860 

135 

REGEL 

290 

122 

REGEL 

1150 

24 

REGEL 

2010 

123 

REGEL 

2870 

137 

REGEL 

300 

129 

REGEL 

1160 

24 

REGEL 

2020 

37 

REGEL 

2880 

78 

REGEL 

310 

.19 

REGEL 

1170 

9 

REGEL 

2030 

176 

REGEL 

2890 

128' 

REGEL 

320 

41 

REGEL 

1180 

139 

REGEL 

2040 

9 

REGEL 

2900 

184 

REGEL 

330 

99 

REGEL 

1190 

53 

REGEL 

2050 

240 

REGEL 

2910 

181 

REGEL 

340 

56 

REGEL 

1200 

240 

REGEL 

2060 

31 

REGEL 

2920 

22 

REGEL 

350 

116 

REGEL 

1210 

30 

REGEL 

2070 

83 

REGEL 

2930 

17 

REGEL 

360 

95 

REGEL 

1220 

24 

REGEL 

2080 

124 

REGEL 

2940 

172 

REGEL 

370 

157 

REGEL 

1230 

24 

REGEL 

2090 

197 

REGEL 

2950 

22 

REGEL 

380 

38 

REGEL 

1240 

148 

RE GEI, 

2100 

198 

REGEL 

2960 

125 

REGEL 

390 

99 

REGEL 

1250 

27 

REGEL 

2110 

135 

REGEL 

2970 

171 

REGEL 

400 

97 

REGEL 

1260 

166 

REGEL 

2120 

246 

REGEL 

2980 

119 

REGEL 

410 

72 ■ 

REGEL 

1270 

208 

REGEL 

2130 

239 

REGEL 

2990 

125 

REGEL 

420 

245 

REGEL 

1280 

75 

REGEL 

2140 

230 

REGEL 

3000 

143 

REGEL 

430 

37 

REGEL 

1290 

33 

REGEL 

2150 

133 

REGEL 

3010 

.147 

REGEL 

440 

40 

REGEL 

1300 

31 

REGEL 

2160 

248 

REGEL 

3020 

147 

REGEL 

450 

131 

REGEL 

1310 

31 

REGEL 

2170 

181 

REGEL 

3030 

107 

REGEL 

460 

250 

REGEL 

1320 

31 

REGEL 

2180 

86 

REGEL 

3040 

93 

REGEL 

470 

29 

REGEL 

1330 

32 

REGEL 

2190 

44 

REGEL 

3050 

218 

REGEL 

480 

96 

REGEL 

1340 

14 

REGEL 

2200 

164 

REGEL 

3060 

147 

REGEL 

490 

97 

REGEL 

1350 

14 

REGEL 

2210 

127 

REGEL 

3070 

147 

REGEL 

500 

72 

REGEL 

1360 

1 4 

REGEL 

222 0 

234 

REGEL 

3080 

193 

REGEL 

510 

239 

REGEL 

1370 

14 

REGEL 

2230 

88 

REGEL 

3090 

143 

REGEL 

520 

37 

REGEL 

1380 

14 

REGEL 

2240 

138 

REGEL 

3100 

220 

REGEL 

530 

34 

REGEL 

1390 

23 

REGEL 

2250 

31 

REGEL 

3110 

126 

REGEL 

540 

123 

REGEL 

1400 

57 

REGEL 

2260 

83 

REGEL 

3120 

178 

REGEL 

550 

244 

REGEL 

1410 

142 

REGEL 

227 0 

128 

REGEL 

3130 

36 

REGEL 

560 

240 

REGEL 

142 0 

202 

REGEL 

2280 

197 

REGEL 

3140 

106 

REGEL 

570 

233 

REGEL 

1430 

95 

REGEL 

2290 

48 

REGEL 

3150 

228 

REGEL 

580 

161 

REGEL 

1440 

89 

REGEL 

2300 

79 

REGEL 

3160 

113 

REGEL 

590 

45 

REGEL 

1450 

165 

REGEL 

2310 

247 

REGEL 

3170 

7 

REGEL 

600 

218 

REGEL 

1460 

42 

REGEL 

2320 

29 

REGEL 

3180 

143 

REGEL 

610 

105 

REGEL 

1470 - 

127 

REGEL 

2330 

42 

REGEL 

3190 

143 

REGEL 

620 

102 

REGEL 

1480 

236 

REGEL 

2340 

31 

REGEL 

3200 

36 

REGEL 

630 

94 

REGEL 

1490 

27 

REGEL 

2350 

251 

REGEL 

3210 

198 

REGEL 

640 

154 

REGEL 

1500 

28 

REGEL 

2360 

141 

REGEL 

3220 

167 

REGEL 

650 

178 

REGEL 

1510 

193 

REGEL 

2370 

201 

REGEL 

3230 

141 

REGEL 

660 

254 

REGEL 

15-20 

133 

REGEL 

238 0 

129 

REGEL 

3240 

185 

REGEL 

670 

75 

REGEL 

1530 

143 

REGEL 

2390 

235 

REGEL 

3250 

92 

REGEL 

680 

164 

REGEL 

1540 

162 

REGEL 

2400 

145 

REGEL 

3260 

26 

REGEL 

690 

35 

REGEL 

1550 

89 

REGEL 

2410 

247 

REGEL 

3270 

121 

REGEL 

700 

80 

REGEL 

1560 

143 

REGEL 

2420 

237 

REGEL 

3280 

60 

REGEL 

710 

164 

REGEL 

1570 

105 

REGEL 

2430 

115 

REGEL 

3290 

28 

REGEL 

720 

36 

REGEL 

1580 

61 

REGEL 

2440 

129 

REGEL 

3300 

142 

REGEL 

730 

93 

REGEL 

1590 

206 

REGEL 

2450 

186 




REGEL 

740 

170 

REGEL 

1600 

2Ó6 

REGEL 

2460 

92 




REGEL 

750 

87 

REGEL 

1610 . 

126 

REGEL 

2470 

32 




REGEL 

760 

225 

REGEL 

1620 

74 

REGEL 

2480 

25 




REGEL 

770 

226 

REGEL 

1630 

184 

REGEL 

2490 

229 




REGEL 

780 

76 

REGEL 

1.64 0 

127 

REGEL 

2500 

142 




REGEL' 

790 

36 

REGEL 

1650 

28 

REGEL 

2510 

47 




REGEL 

800 

136 

REGEL 

1660 

230 

REGEL 

2520 

84 




REGEL 

810 

126 

REGEL 

167 0 

245 

REGEL 

2530 

132 




REGEL 

820 

218 

REGEL 

1680 

226 

REGEL 

254 0 

119 




REGEL 

830 

133 

REGEL 

1690 

235 

REGEL 

2550 

109 




REGEL 

840 

2 

REGEL 

1700 

178 

REGEL 

2560 

17 




REGEL 

850 

201 

REGEL 

1710 

117 

REGEL 

2570 

39 




REGEL 

860 

254 

REGEL 

1720 

225 

REGEL 

2580 

12 




REGEL 

870 

205 

REGEL 

1730 

112 

REGEL 

2590 

39 




REGEL 

880 

47 

REGEL 

1740 

192 

. REGEL 

2600 

90 




REGEL 

890 

118 

' REGEL 

1750 

219 

REGEL 

2610 

87 




REGEL 

900 

79 

REGEL 

1760 

24 

REGEL 

2620 

200 





O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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o 

o 


ül 


- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


Programma tafels 


Maarten Hoeben uit Amsterdam schreef een paar 
jaar geleden een programma voor zijn zusje 
waarmee zij de tafels kon oefenen. Hij heeft nu 
het programma wat aangepast, zodat het geheel 
wat overzichtelijker wordt. Het resultaat ziet U 
hier. Men kan kiezen met welke tafel men wil oe¬ 
fenen. Hierna komt men in het eigenlijke speel¬ 
veld. De cijfers haal je op door middel van het 
marsmannetje, dat wordt bestuurd door de joys¬ 
tick in poort 2. Ga met het mannetje voor zo’n 
cijfer staan. Je pakt het cijfer door de joystick 
naar onderen te duwen. Vervolgens dient het cij¬ 
fer naar de geldzak gebracht te worden. Daar 
wordt het cijfer afgeleverd door de joystick weer 
naar onderen te laten wijzen. Als een aantal som¬ 
men op deze wijze zijn opgelost kom je op een 
bonusveld terecht. Behalve het marsmannetje 
loopt er nog een ander raar wezentje rond; als 
die je pakt kom je achter slot en grendel. Ook 
mag je niet in het water vallen. Je kan door te 
springen aan deze gevaren ontkomen. Al met al 
weer een leuk doe-spel. 

100 rem tafels voor de commodore 64 
110 rem door : maarten hoeben 
120 rem 

130 rem 7556 cp hengelo (o) 

140 rem 

150 rem voor : commodore info 

160 poke657,128:v=53248:poke650,128 

170 fort=0tol5:pokev+t,0:next 

180 rem hoofdprogramma 

190 gosub240:rem begin 

200 gosub450:rem sprites 

210 gosub310:rem cont 

220 gosub390:rem spel deel 2 

230 end 

240 poke53280,11:poke53281,15:print"[S 

HIFT CLR][CTRL-1][CRSR-DOWN][CRSR- 
RIGHT]tafels" 

250 print"[2xCRSR-DOWN][CRSR-RIGHT]doo 
r[SPACE]:[SPACE]maarten[SPACE]hoeb 
en" 

260 print"[8xCRSR-RIGHT]ir.m.schefferl 
aan[SPACE]37" 

270 print"[8xCRSR-RIGHT]7556[SPACE]cp[ 
2xSPACE]hengelo(o)" 

280 print"[13xCRSR-DOWN][CTRL-9][3xSPA 
CE][2xCOM-'][2xCOM-P][COM-O][COM-P 
][3xCOM-0][2xCOM-I] [CTRL-0] [4xCOM- 

U] [2xCOM-Y][COM-U][4xCOM-Y][9xCOM- 
T] " 

290 print"[CTRL-9][SPACE] [CTRL-0] [COM- 

V] ":print"[CTRL-9][COM-M]":print"[ 
CTRL-9][COM-N]":print"[CTRL-9][COM 

N] "; 

300 return 

310 v=53248:pokev+21,1:pokev+28,1:poke 

v+37,1:pokev+38,2:pokev+39, 0 
320 poke2040,248:pokev+l,190:fort=lto2 

55:pokev,t 

330 fork=lto2 0:next:next:poke2040,245: 

fork=lto500:next:poke2040,246 
340 fort=lto200:next;print"[HOME][20xC 


350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 


RSR-DOWN]"tab(20)" [CTRL-0] [15xSPAC 
E] " 

fort=190to255:pokev+l,t:next 
input"[2xCRSR-UP]tafel:";tl 
iftl<lortl>255thenprint:goto360 
return 

goto540:rem variable 
gosub960:rem veld 2 
gosubll40:rem veld 2 
gosubl260 

gosub870:pl=peek(v+30):goto650:rem 
spel deel 2 
end 

readaa:rem aantal sprites 
foral=ltoaa:readlo:fort=0to62 
readq:pokelo*64+t,q 
next:next 

dimmo(lO): fort=ltol0 :readmo(t):next 
return 

print”[HOME][4xCRSR-DOWN]":fort=lt 
olOrprint"[5xCRSR-RIGHT][30xSPACE] 

" : next 
return 

poke2040,246:fort=lto200:next:poke 
2040,245:return 

rem programma deel 2 onderdelen 
rem *************************** 

poke832,tl:fort^ltolO:poke833+t,mo 
(t):next:clr 

tl=peek(832): fort=ltol0 :mo(t)=peek 
(833+t):next 

v=53248:xl=12:yl=24:x2=2.5:dimsp(1 
0) : sp (1) =-8 : sp (2) =-4 : sp (3) =-2 : sp (4 
)=-l 

sp (5) =0 : sp (6) =0 : sp (7) =1: sp (8) =2 : sp 
(9) =4:sp(10)=8: sp=0 
pl=70:pp=4:r(1)=2:r(2)=4:r(3)=4:r ( 
4)=-4:r(5)=-4:r(6)=-2:r(7)=0:rl=ll 
2:r2=14 

r(8)=8:r(9)=-8:r3=48:r4=0:m=l:q=24 
5:pokev+2 8,3:r=4: ml=0 
fort=54272to542 96:poket,0:next: 14= 

0:pokev+27,0 

goto400 

rem besturing 

x=0 : q=245 :m=m+l :ml=ml+l 

if(peek(56320)and2)<>2thengosubl310 

if(peek(56320)and8)<>8thenx=4:q=248 

if(peek(56320)and4)<>4thenx=-4:q=2 

47 

ifxl+x<2orxl+x>230thenx=0 

if(peek(56320)andl6)<>16andp<>32th 

ensp=l: sl=0 

ifm=llthenm=l 

ifml>15thenml=int(rnd(l)*8)+1:r=r( 
ml) :ml=0 

ifr+rl<=2orr+rl=>232thenr=-r 
ifr3>166thenlo=2041:gosub900:rl=ll 
2:r2=14:r3=48 

ifyl>166thenlo=2040:gosub530:gosub 
900:xl=12:x2=2.5:yl=24 
xl=xl+x:x2=x2+(x/8):yl=yl+y:pl=pl+ 
pp:rl=rl+r:r2=r2+(r/8):r3=r3+r4 
p=peek(1024+x2+40*(int(yl/8)+2)):p 
2=peek(1024+r2+40*(int(r3/8)+2)) 
y=0:ifp=32theny=4 

ifsp=lthensl=sl+l:y=sp(sl):ifsl=10 
thensp=0 


I 


O 

o 

o 

o 

o 


! O 
O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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800 ifpl>212orpl<70thenpp=-pp 
810 pl=peek(v+30) ;if (plandl28)=128 tHe 
ngosuL>1310 : goto830 

820 i£(plandl)=land (pland2)=2and(pland 

96) <!596th@ngosub530: gotOl380 
830 if (plandl)=land( (pland32)=32or (pla 
nd64)=64)thenyl=pl-50 
840 if(pland2)=2and((pland32)=32or(pla 
nd64)=64)thenr3=pl-50;ml=16 
850 r4=0:i£p2=32thenr4=4 

860 gosub870:goto650 

870 pokev,22+xl;pokev+l,46+yl:poke2040 
,g:pokev+2,22+rl:pokev+3,46+r3 
880 pokev+11,pl:pokev+13,pl:poke2041, m 

o(m) 

890 return 

900 ll=lo-2001:poke54296,15:poke54273, 

200:poke54272,243:poke54277, 16 
910 poke54278,232:poke54276,129:pokev+ 

11,14:pokelo,244:fort=ltol00:next 
920 pokelo,243:fort=lto500:next 
930 pokelo,244:fort=15tolstep-.15:poke 
54296,t:next 

940 pokev+11,0:poke54276,128:iflo=2040 
thengotol550 
950 return 

960 print"[SHIFT-CLR][CTRL-1][3xSPACE] 
[COM-T][COM-Y]ECR[COM-'][2xSPACE]s 
om: " 

970 print"[9xSPACE][COM-Y][6xCOM-U][2x 
COM-Y][COM-T][COM-Y][4xCOMU][3xCO 
M Y][2xCOM-U][COM-Y][4xCOM-T][2xCO 
M Y][2xCOM-U][COM-Y][COM-T]"; 

980 print"[14xSPACE]antwoorden[SPACE]= 
>[2xCRSR-DOWN]" 

990 print"[2xCOM-U][2xCOM-Y][COM-T][22 
xSPACE][CRSR-DOWN][COM-T][3xC0M-Y] 
[COM-U][CTRL-9][COM-O][SPACE][COM- 
D][CTRL 0][COM-Y][COM-U][COM-Y][CO 
M T] " 

1000 print"[CRSR-DOWN][9xSPACE][COM-T][ 
COM-Y][3xCOM-U][2xCOM-Y][3xCOM-U][ 
COM-Y][2xCOM-T][llxSPACE][CRSR-UP] 
[CTRL-9][COM-H][CTRL-0][COM-J][CRS 
R-DOWN][2xCRSR-LEFT][CTRL-9][COM-J 
][CTRL-0][COM-H][SPACE]=>[CRSR-DOW 
N][5xCRSR-LEFT][CTRL-9][COM-G][COM 
L] " ; 

1010 print"[CRSR-DOWN][5xCRSR-LEFT][CTR 
L 0][COM-'][COM-O][COM-I][CTRL-9][ 
2xSPACE][CTRL-0][COM-I][COM-O][COM 
P][COM-']" 

1020 print"[CRSR-DOWN][COM-Y][2xCOM-U][ 
COM-Y][COM-T][23xSPACE][CRSR-UP][C 
OM T][2xCOM-Y][COM-U][COM-Y][2xCOM 
U][2xCOM-Y][3xCOM-U] 

1030 print"[2xCRSR-DOWN][lOxSPACE][COM- 
T][COM-Y][2xCOM-U][COM-Y][COM-T][2 
xCOM-Y][COM-U][COM-Y][2xCOM-T][CRS 
R-DOWN][5xSPACE][COM-T][COM-Y][4xC 
OM U] [COM-Y] [COM-T] " 

1040 print"[CRSR-DOWN][CTRL-9][SPACE][C 
OM I][CTRL-0][COM-U][COM-Y][COM-T] 

II 

1050 print"[CTRL-9][COM-M][CRSR-DOWN][C 
RSR-LEFT][COM-N][CTRL-0][8xSPACE][ 
2xCOM-T][2xCOM-Y][4xC0M-U][2xC0M-Y 
][COM-T][COM-Y][COM-T]" 


1060 print"[34xSPACEJ[COM-D][COM-F][CRS 
R-DOWN][2XCRSR-LEFT][CTRL-9][COM-H 
][COM-L][2xCRSR-UP]" 

1070 print"[CTRL-9][COM-L][CRSR-DOWN][C 
RSR-LEFT][CTRL-0][COM-K][CRSR-DOWN 
][CRSR-LEFT][COM-K][SOxSPACE][COM- 
P][CTRL-9][COM-U][COM-Y][2XSPACE][ 
COM-Y][COM-U][CTRL-0][COM-I][COM-O 

3 "; 

1080 print"[CTRL-9][COM-7][SPACE][COM-T 
][2xCOM-Y][3xCOM-U][2xCOM-Y][COM-T 
][COM-Y][6xCOM-U][COM-Y][COM-U][CO 
M Y][COM-U][COM-Y][2xCOM-T][COM-Y] 
[COM-T][COM-Y][2xCOM-U][COM-Y][COM 
T][9XSPACE]"; 

1090 fort=4tol5:pokev+t,0rnext 
1100 fort=4tol5:pokev+t,0:next 
1110 pokev+21,255:pokev+16,128:pokev+46 
,7:poke2047,254:pokev+15,77:pokev+ 
14, 5 

1120 pokev+10,70:pokev+12,210:pokev+44, 

0:pokev+45,0:poke2045,255:poke2046 
,255 

1130 pokev+3,10:pokev+5,40:pokev+7,80:p 
okev+ 9,12 0:pokev+ 4 0,0:return 
1140 d$=" [HOME] [20XCRSR-DOWN] " 

1150 printleft$(d$,4+1)tab(1)"[CTRL-0][ 
CTRL-7]1" 

1160 printleft$(d$,ll+l)tab(l)"2" 

1170 printleft$(d$,16+1)tab(1)"3" 

1180 printleft$(d$,7+1)tab(13)"4" 

1190 printleft$(d$,7+1)tab(17)"9" 

1200 printleft$(d$,10+1)tab (29) "5" 

1210 printleft$(d$,13+1)tab(14)"6" 

1220 printleft$(d$,13+1)tab(17)"0" 

1230 printleft$(d$,14+1)tab(29)"7" 

1240 printleft$(d$,18+1)tab(16)"8" 

1250 return 

1260 ifi4=4thenl730:rem 14 = aantal som 
men !!! 

1270 so=int(rnd(1)*9)+1:print”[HOME][15 
xCRSR-RIGHT][CTRL-2]"so"[CRSR-LEFT 
][2xSPACE]*"tl"[CRSR-LEFT][2xSPACE 
]=[5xSPACE][5xCRSR-LEFT]";:il=2 
1280 poke54296,15:poke54277,7:poke54278 

,248:poke54273,24:poke54272,48 
1290 poke54276,33:fort=ltol00:next:poke 

54276,32 

1300 so$=str$(so*tl):rl=112:r2=14:r3=48 
:r4=0:gosub870:pl=peek(v+30):retur 
n 

1310 co=peek(1024+x2+40*(int(yl/8) +1) ) : 

i2=len(so$)+1:i3=peek(v+30) 

1320 ifil=i2and(i3andl28)=128theni4=i4+ 
1:gotol260 

1330 ifil=len(so$)+lthenreturn 
1340 ifco<48orco>57thenreturn 
1350 cl=val(mid$(so$,il,1)):ifco-48<>cl 
thenreturn 

1360 printchr$(co);:il=il+l:poke54296,1 
5:poke54277,7:poke54278,133:poke54 
273,100 

1370 poke54272,243:poke54276,33:fort=lt 

o50:next;poke54276,32:return 
1380 v=53248:print”[SHIFT-CLR][9xCRSR-D 

OWN][CTRL-6][COM-U][3xC0M-Y][COM-T 
][COM-Y][2xCOM-U][COM-Y][COM-U][CO 
M Y][2xCOM-T][2xCOM-Y][COM-T][COM- 
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Y][4XCOM-U][COM-Y][COM-U][COM-Y][2 
xCOM-T][COM-Y][2xCOM-U][COM-Y][COM 
T][COM-Y][4xCOM-U][COM-Y][3xCOM-U] 
1390 print"[4xCRSR-DOWN][CTRL-9][COM-T] 
[4xCOM-Y][COM-T][COM-Y][4xCOM-U][2 
xCOM-Y][COM-U][COM-Y][3xCOM-T][COM 
Y][COM-U][COM-Y][5xCOM-U][2xCOM-Y 
][COM-T][COM-Y][4xCOM-T][COM-Y][5x 
COM-U]" 

1400 print"[HOME][10xCRSR-DOWN][15xCRSR 
-RIGHT][CTRL-2][COM-A][10xCOM-R][C 
OM S]":printtab(15)"BBBBBBBBBBBB" 
1410 printtab(15)"BBBBBBBBBBBB":printta 
b (15)"BBBBBBBBBBBB" 

1420 printtab(15)"[COM-Z][10xCOM-E][COM 

X] " 

1430 print"[HOME]:fort=lto9:print"[CT 
RL 9][CTRL-6][40xSPACE] 

1440 next:print"[CTRL-0][9xCRSR-DOWN][C 
TRL 2][4xCRSR-RIGHT]je[SPACE]bent[ 
SPACE]gevangen[SPACE]genomen" 

1450 print"[4xCRSR-RIGHT]door[SPACE]de[ 
SPACE]tafel[SPACE]monsters[SPACE]! 

! ! " 

1460 pokev+21,3:pokev+27,1:pokev, 200:po 
kev+1,144:pokev+2,100:pokev+3,148 
1470 print"[4xCRSR-RIGHT]wil[SPACE]je[S 
PACE]door[SPACE]gaan[SPACE]met[SPA 
CE]dezelfde" 

1480 print"[4xCRSR-RIGHT]tafel[SPACE]of 
[SPACE]opnieuw[SPACE]beginnen? ?" 
1490 print"[CRSR-DOWN][4xCRSR-RIGHT]jou 
[SPACE]keuze[SPACE](d/s)?":m=0 
1500 geta$:ifa$="d"thenclr:fort=0tol5 :p 
oke53248+t,0:goto570 
1510 m=m+l:poke2041,mo(m) 

1520 ifm=10thenm=0 
1530 ifa$="s"thenrun 
1540 fort=lto50:next:gotol500 
1550 print"[SHIFT-CLR][5xCRSR-DOWN][COM 
7]"tab(15)".[3xSPACE].[2xSPACE] 
:printtab(15)"[SPACE].[SPACE].[2xS 
PACE]." 

1560 printtab(15)"[3xSPACE].[SPACE].[2x 
SPACE]:printtab(15)"[SPACE].[2xS 
PACE].[2xSPACE]." 

1570 printtab(15)"[3xSPACE].[2xSPACE]." 

:printtab(15)"[4xSPACE].[SPACE].": 
printtab(15)"[4xSPACE].." 

1580 print"[CTRL-6]XX[CRSR-UP]X[CRSR-DO 
WN]X[COM-6]XX[CRSR-DOWN]X[CRSR-DOW 
N]X[CTRL-6]XX[2xSPACE]XXX[CRSR-DOW 
N]XXXXX[2 xSPACE]X[CRSR-UP] [SPACE]X 
XXX[CRSR-UP]X[CRSR-UP]X[CRSR-UP]X[ 
COM-6]XXXXXX" 

1590 print"[CRSR-DOWN][CTRL-1][CTRL-9][ 
2xSPACE][CRSR-UP][SPACE][CRSR-DOWN 
][CRSR-LEFT][4xSPACE]":print"[CTRL 
9][7xSPACE]":print"[CTRL-9][16xSP 
ACE] " 

1600 print"[CTRL-9][40xSPACE]" 

1610 print"[3xCRSR-UP]"tab(23)"[CTRL-9] 
[17xSPACE]":print"[3xCRSR-UP]"tab( 
26)"[CTRL-9][14xSPACE]" 

1620 print"[3xCRSR-UP]"tab(29)"[CTRL-9] 
[llxSPACE]":print"[3xCRSR-UP]"tab( 
30)"[CTRL-9][12xSPACE]" 

1630 v=53248:pokev+21,1:poke2040, 245 :po 



kev,180:pokev+1,150 

j O 

1640 

print;'[4XCRSR-DOWN] [CTRL-2] [4 xCRSR 
-RIGHT]je[SPACE]bent[SPACE]in[SPAC 

E]het[SPACE]water[SPACE]gevallen." 

1 

.1 : 

1 

1650 

print"[4XCRSR-RIGHT]je[SPACE]ligt[ 
SPACE]nu[SPACE]op[SPACE]de[SPACE]b 
odem[SPACE]van[SPACE]de[SPACE]zee" 

! o 

i 

i 

1660 

print"[4xCRSR-RIGHT]wil[SPACE]je[S 
PACE]doorgaan[SPACE]met[SPACE]de[S 
PACE]zelfde" 

i 

1 ° 

1670 

print"[4xCRSR-RIGHT]tafel[SPACE]of 
[SPACE]opnieuw[SPACE]beginnen? ?" 

i 

i 

1680 

print"[CRSR-DOWN][4xCRSR-RIGHT]je[ 
SPACE]keuze[SPACE](d/s)[HOME]” 

o 

1690 

print"[HOME][CRSR-DOWN][COM-7][2xC 

OM Y]EECCFCE[2xCOM-Y]EEDDCFRCD[3xC 

OM Y]EDDFDE[2xCOM-Y]EEDCFFFCD" 


1700 

geta$:ifa$="d"thenclr:fort=0tol5:p 
oke53248+t,0:goto570 

o 

1710 

ifa$="s"thenrun 


1720 

gotol700 


1730 

poke54296,15:poke54277, 9:poke54278 
,0:poke54273,50:poke54272,60:poke5 
4276,33 

o 


1740 

pokev+21,129:pokev+16,129:pokev,50 



:pokev+1,115:fort=lto600:next 

o 

1750 

poke54276,32 

1760 

poke2040,248:fort=50tol00:pokev,t: 
fork=lto50:next:next 


1770 

pokev+21,0:print"[SHIFT-CLR][CTRL- 
1][lOxSPACE][COM-A][3XSHIFT-*][COM 

S][5xSPACE][COM-A][17xSHIFT-*][CO 

M S] " 

o 


1780 

pokev+21,0:print"[SPACE]seconden[S 
PACE]B[3xSPACE]B[SPACE]som[SPACE]B 
[17xSPACE]B" 

o 

1790 

pokev+21,0:print"[lOxSPACE][COM-Z] 
[3xSHIFT-*][COM-X][5xSPACE][COM-Z] 
[17xSHIFT-*][COM-X] " 

o 

1800 

print"[2xCRSR-DOWN][CTRL-6][COM-T] 
[COM-Y][2xCOM-U][COM-Y][COM-U][2xC 

OM Y] [COM-T] [COM-Y] [5xCOM-U] [COM-Y 
] [2xCOM-U][COM-Y][2xCOM-T][2xCOM-Y 
] [COM-U][2xCOM-Y][COM-T][COM-Y][4x 
COM-U][COM-Y][2xCOM-U][COM-Y][COM- 
T][COM-Y][COM-U][COM-Y]" 


f o 

1 

1810 

printtab(25) " [CRSR-UP][CTRL-8][CTR 

L 9][COM-A][8xSHIFT-*][COM-S] " :pri 
nttab(25) " [CTRL-9]B [ 8xSPACE]B" 

! o 

1820 

printtab(25) " [CTRL-9]B[2xSPACE]B[3 
xSPACE]Q[SPACE]B":printtab(25)"[CT 

RL 9]B[SPACE][SHIFT-*]W[SHIFT-*][S 
PACE]Q[2xSPACE]B" 

o 

1830 

printtab(25)"[CTRL-9]B[2xSPACE]B[3 
xSPACE]Q[SPACE]B":printtab(25) " [CT 

RL 9 ] B[8xSPACE]B" 

1 

! o 

1840 

printtab(25)"[CTRL-9]B [ 8xSPACE]B": 
printtab(25)"[CTRL-9][COM-Z][8xSHI 

FT *][COM-X]" 

i 

t: 

1850 

printtab(23)"[CTRL-6][COM-T][COM-Y 
] [2xCOM-U][COM-Y][COM-U][COM-Y][CO 

M T][2xCOM-Y][4xCOM-U][COM-Y][COM- 
U][COM-Y] " 

O 

1860 

print"[COM-7][COM-P][COM-O][COM-P] 
[COM-O] [ COM-I ] [3xCOM-0][COM-I][COM 

O][COM-I][COM-O][2xCOM-P][COM-O] [ 
COM-P][COM-O][2xCOM-I][COM-O][2xCO 

M P][3xCOM-'][COM-P][COM-O][COM-P] 

O 



O 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 
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1870 

1880 

1890 

1900 

1910 


1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 


2130 


2140 


2150 

2160 

2170 

2180 

2190 

2200 


2210 

2220 


[COM-O][CÖM-I][COM-O][COM-P][COM-O 2230 
][3XCOM-I][COM-O][COM-P][COM-O][CO 
M I] »; 

£ort=lto3 2240 

print"[CTRL-9][40XSPACE]”; 

next 2250 

x=180:y=148:pökev+21,65 : poke2040,2 

45:ti$="000000":pokev+16,0 2260 

s=int(rnd(l)*3)+5:print"[HOME][CRS 

R-DOWN][2lxCRSR-RIGHT]"tl"[CRSR-LE 

FT][2xSPACE]*"s"[CRSR-LEFT][2xSPAC 2270 

JJJ—II 

so$=str$ (tl*s) :so=2 2280 

pokev,x:pokev+1,y-5:pokev+12,x:pok 
ev+13,y 

print"[HOME][CRSR-DOWN][12xCRSR-RI 2290 

GHT]"right$(ti$,2) 

y=y+.1:ifval(ti$)=>14thenlo=2040;g 2300 

osub900 

geta$:ifa$<>""thengosubl980 2310 

gotol930 2320 

ifa$=mid$(so$,so,1)thengoto2000 
return 

so=so+l:print"[HOME][CRSR-DOWN]"ta 2330 

b(31+so)a$ 

iflen(so$)=so-lthen2030 2340 

return 

pokev+21,0:pokev+28,1:pokev+16,0:f 2350 

ort=40to46:pokev+t,7:next 
fort=2tol5:pokev+t,0:next:fort=204 
lto2047:poket,254:next 2360 

pokev+2,230:pokev+3,135:pokev+4,25 
4:pokev+5,135 2370 

pokev+16,192:pokev+12,23:pokev+13, 

114:pokev+14,23:pokev+15,135 2380 

pokev+6,230:pokev+7,114:pokev+8,25 
4:pokev+9,114 

pokev+21,255:print"[HOME][6xCRSR-D 2390 
OWN][CTRL-8][25xCRSR-RIGHT][CTRL-9 
][COM-D][9xCOM-I][COM-F]" 2400 

fort=lto6 rprinttab(25)"[COM-K] [9xS 
PACE][CTRL-9][COM-K]":next 2410 

printtab(25)"[CTRL-9][COM-C][CTRL- 
0][9xCOM-I][CTRL-9][COM-V]" 
pokev,202:pokev+1,142 2420 

print"[HOME][21xCRSR-DOWN][CTRL-2] 
[2xSPACE]j e [SPACE]hebt[SPACE]de[SP 2430 

ACEJtafel[SPACE]monsters[SPACE]ver 
slagen[SPACE]!" 2440 

print"[2xSPACE]ik[SPACE]denk[SPACE 
]dat[SPACE]je[SPACE]de[SPACE]volge 
nde[SPACE]tafel[2XSPACE]" 2450 

print"[2xSPACE]nu[SPACE]wel[SPACE] 
kan[SPACE]proberen!![2xSPACE](s/d) 2460 

":poke2040,245 

geta$:ifa$="s"thenrun 2470 

ifa$="d"thenpokev+21,0:goto390 2480 

goto2150 

rem woebie 2490 

datal3,245, 0 , 0 ,0,0,0,0,0,0,0,0,0,0 
,0,0,0,6,1,128,15,3,192,25,134,96 
dataO,204,0,3,255,0,3,255,0,15,255 2500 

,192,13,117,192,13,185,192,13,185, 

192 2510 

datal3,117,192,15,255,192,3,255,0, 2520 

3,255,0,10,170,128,0,0,0 2530 

data246,0,0,0,0,0,0,0,0,0,1,1,0,0, 

204,0,0,68,0,0,204,0,0,68,0, 0,204, 0 2540 


data3,255,0,3,255,0,15,255,192,15, 
255,192,15,255,192,15,255,192,13,1 
85,192 

datal5,255,192,3,255,0,3,255,0, 10, 
170,128,0,0,0 

data247,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,1,128, 0,3, 192,0, 6, 96, 0,0,48,0 
data3,255,0,3,255,0,15,255,192,7,2 
55,192,11,255,192,11,255,192,7,255 
,192 

datal5,255,192,3,255,0,3,255,0, 10, 
170,0,0,0,0 

data248,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,6,0,0,15,0,0,25,128,0,48,0,3 
,255,0 

data3,255,0,15,255,192,15, 255,64,1 
5,255,128,15,255,128,15,255,64 
datal5,255,192,3,255,0,3,255, 0,2,1 
70,128,0,0,0 
rem monsters 

data24 9,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,4,0,64,5,1,64,1,69,0,0,170,0,2 
,170,0 

data2,170,0,10,118,128,9,117,128,9 
,169,128,10,170,128,10,170,128 
data2,170,0,2,170,0,0,204,0,10,2,1 
28,0,0,0 

data250,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0, 0,4, 0, 64, 5, 1, 64, 1, 69, 0,0, 170, 0,2 
,170,0 

data2,170,0,10,214,128,9,213,128, 9 
,169,128,10,170,128,10,170,128 
data2,170,0,2,170,0,0, 204,0,10,2, 1 
28,0,0,0 

data251,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,4,0,64,5,1,64,1,69,0,0,170,0,2 
, 170, 0 

data2,170,0,10,86,128,11,85,128,11 
, 169,128,10,170,128,10,170,128 
data2,170,0,2,170,0,0,204,0,10,2,1 
28,0,0,0 

data252,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,4,0,64,5,1,64,1,69,0,0,170,0,2 
, 170,0 

data2,170,0,10,86,128, 9, 87, 128, 9,1 

71.128.10.170.128.10.170.128 
data2,170,0,2,170,0,0,204,0,2, 138, 
0,0,0,0 

data253,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0, 4,0, 64,5,1, 64, 1, 69, 0, 0, 170,0,2 
, 170,0 

data2,170,0,10,94,128,9, 93,128, 9, 1 
69,128,10,170,128,10,170, 128 
data2,170,0,2,170,0,0,204,0,2, 138, 
0 , 0 , 0,0 

rem data geld zak 

data254,0,252,0,30,253,224,31,123, 

224.31.123.224.7.119.192.3.255.128 
data2,0,128,1,255,0,7,255,192,15,2 
06,224,31,130,240,31,63,112,63,135 
, 88 

data63,243,104,63,7,104,63,206,216 
,31,254,204,31,249,240,15,255,224 
data7,255,192,1,255,0 
rem lift 

data255,,,,,,,,,,,,,,,,,,,,,,,,,,, 

...255,255,255 

data54,71,248,11,246,64,6,153,0,0, 
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2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 


0 , 0 , 0 , 0,0 

rem plons 

data243, 0, 0, 0, 0, 3, 0, 141, 9,136, 32, 1 
68,96,134,1,10,41,82,192,17,4,32 
dataO, 140,10,0,136,0,32,172,4,64,1 
72,0, 0,164,0,0,132,0,0,148,0,0,180,0 
dataO,148,0,129,182,0,1,70,2,21,73 
,32,128,58,144,9,36,64 

uauQt-st , / r t t t r / r r t r r r t r t r r r r r r r r r r 

,,,,,,,,,32,0,0,128,32,0,10,129,64 
dataO,16,0,17,76,136,1,74,0,138,20 
1,65,64,0,8,18,34,32,0 
rem monster opbouw 

data249,250,251,251,250,249,253,25 
2,252,253 


EINDE LISTING tafels 



Checksum Tafels 


| REGEL 

100 

44 

REGEL 

640 

66 

REGEL 

1180 

0 

REGEL 

1720 

81 

REGEL 

2260 

161 

| REGEL 

110 

182 

REGEL 

650 

54 

REGEL 

1190 

9 

-REGEL 

1730 

226 

REGEL 

2270 

64 

| REGEL 

120 

159 

REGEL 

660 

95 

REGEL 

1200 

50 

REGEL 

1740 

- 39 

REGEL 

2280 

114 

1 REGEL 

130 

155 

REGEL 

670 

50' 

REGEL 

1210 

48 

REGEL 

1750 

48 

REGEL 

2290 

30 

1 REGEL 

140 

143 

REGEL 

680 

212 

REGEL 

1220 

45 

REGEL 

1760 

147 

REGEL 

2300 

124 

1 REGEL 

150 

224 

REGEL 

690 

93 

REGEL 

1230 

56 

REGEL 

1770 

76 

REGEL 

2310 

10 

1 REGEL 

160 

123 

REGEL 

700 

101 

REGEL 

' 1240 

57 

REGEL 

1780 

179 

REGEL 

2320 

122 

| REGEL 

170 

254 

REGEL 

710 

195 

REGEL 

1250 

142 

REGEL 

1790 

65 

REGEL 

2330 

8 

REGEL 

180 

165 

REGEL 

720 

242 

REGEL 

1260 

198 

REGEL 

1800 

79 

REGEL 

2340 

147 

REGEL 

190 

81 

REGEL 

730 

114 

REGEL 

1270 

109 

REGEL 

1810 

143 

REGEL 

2350 

114 

REGEL 

200 

25 

REGEL 

740 

46 

REGEL 

1280 

234 

REGEL 

1820 

65 

REGEL 

2360 

2 

| REGEL 

210 

30 

REGEL 

750 

155 

REGEL 

1290 

126 

REGEL 

1830 

25 

REGEL 

2370 

147 

|' REGEL 

220 

114 

REGEL 

760 

169 

REGEL 

1300 

200 

REGEL 

1840 

108 

REGEL 

2380 

115 

I REGEL 

230 

128 

REGEL 

770 

57 

REGEL 

1310 

167 

REGEL 

1850 

51 

REGEL 

2390 

2 

1 REGEL 

240 

180 

REGEL 

780 

77 

REGEL 

1320 

255 

REGEL 

1860 

7 

REGEL 

2400 

147 

1 REGEL 

250 

67 

REGEL 

.790 

146 

REGEL 

1330 

161 

REGEL 

1870 

143 

REGEL 

2410 

116 

1 REGEL 

260 

213 

REGEL 

800 

23 

REGEL 

1340 

208 

REGEL 

1880 

42 

REGEL 

2420 

171 

REGEL 

270 

209 

REGEL- 

810 

46 

REGEL 

1350 

155 

REGEL 

1890 

130 

REGEL 

2430 

99 

REGEL 

280 

120 

REGEL 

820 

51 

REGEL 

1360 

20 

REGEL 

1900 

83 

REGEL 

2440 

117 

REGEL 

290 

240 

REGEL 

830 

99 

REGEL 

1370 

180 

REGEL 

1910 

163 

REGEL 

2450 

174 

REGEL 

300 

142 

REGEL 

840 

49 

REGEL 

1380 

141 

REGEL 

1920 

209 

REGEL 

2460 

99 

| REGEL 

310 

2 

REGEL 

850 

217 

REGEL 

1390 

19 

REGEL 

1930 

74 

REGEL 

2470 

171 

] REGEL 

320 

200 

REGEL 

860 

138 

REGEL 

1400 

5 

REGEL 

1940 

150 

REGEL 

2480 

192 

| REGEL 

330 

200 

REGEL 

870 

25 

REGEL 

1410 

136 

REGEL 

1950 

235 

REGEL 

2490 

83 

I REGEL 

340 

44 

REGEL 

880 

188 

REGEL 

1420 

99 

REGEL 

1960 

222 

REGEL 

2500 

157 

1 REGEL 

350 

159 

REGEL 

890 

142 

REGEL 

1430 

124 

REGEL 

1970 

86 

REGEL 

2510 

203 

1 REGEL 

360 

81 

REGEL 

900 

64 

REGEL 

1440 

73 ' 

REGEL 

1980 

160 

REGEL 

2520 

190 

1 REGEL 

370 

18 

REGEL 

910 

249 

REGEL 

1450 

88 

REGEL 

1990 

142 

REGEL 

2530 

51 

| REGEL 

380 

142 

REGEL 

920 

222 

REGEL 

1460 

41 

REGEL 

2000 

237 

REGEL 

2540 

225 

REGEL 

390 

49 

REGEL 

930 

243 

REGEL 

1470 

64 

REGEL 

2010 

1 

REGEL 

2550 

27 

REGEL 

400 

82 

REGEL 

940 

227 

REGEL 

1480 

61 

REGEL 

2020 

142 

REGEL 

2560 

77 

1 REGEL 

410 

121 

REGEL 

950 

142 

REGEL 

1490 

147 

REGEL 

2030 

249 

REGEL 

2570 

229 

| REGEL 

420 

86 

REGEL 

960 

12 9 

REGEL 

1500 

56 

REGEL 

2040 

161 

REGEL 

2580 

124 

| REGEL 

430 

182 

REGEL 

970 

215 

REGEL 

1510 

37 

REGEL 

2050 

234 

REGEL 

2590 

9 

| REGEL 

440 

128 

REGEL 

980 

123 

REGEL 

1520 

193 

REGEL 

2060 

69 

REGEL 

2600 

110 

1 REGEL 

450 

173 

REGEL 

990 

193 

REGEL 

1530 

106 

REGEL 

2070 

244 

REGEL 

2610 

147 

1 REGEL 

460 

85 

REGEL 

1000 

62 

REGEL 

1540 

6 

REGEL 

2080 

240 

REGEL 

2620 

17 

1 REGEL 

470 

213 

REGEL 

1010 

226 

REGEL 

1550 

50 

REGEL 

2090 

236 




REGEL 

480 

62 

REGEL 

1020 

193 

REGEL 

1560 

108 

REGEL 

2100 

242 




REGEL 

490 

137 

REGEL 

1030 

235 

REGEL 

1570 

181 

REGEL 

2110 

114 




REGEL 

500 

142 

REGEL 

1040 

70 

REGEL 

1580 

100 

REGEL 

2120 

68 




REGEL 

510 

143 

REGEL 

1050 

127 

REGEL 

1590 

33 

REGEL 

2130 

68 




REGEL 

520 

142 

REGEL 

1060 

45 

REGEL 

1600 

239 

REGEL 

2140 

86 




REGEL 

530 

47 , 

REGEL 

1070 

156 

REGEL 

1610 

107 

REGEL 

2150 

170 




REGEL 

540 

97 

REGEL 

1080 

203 

REGEL 

162 0 

108 

REGEL 

2160 

134 




REGEL 

550 

253 

REGEL 

1090 

2 

REGEL 

1630 

173 

REGEL 

2170 

81 




REGEL 

560 

72 

REGEL 

1100 

2 

REGEL 

1640 

201 

REGEL 

2180 

74 




REGEL 

570 

118 

REGEL 

1110 

44 

' REGEL 

1650 

148 

REGEL 

2190 

67 




REGEL 

580 

167 

REGEL 

1120 

114 

REGEL 

1660 

64 . 

REGEL 

2200 

90 




REGEL 

590 

104 

REGEL 

1130 

171 

REGEL 

1670 

61 

REGEL 

2210 

200 




REGEL 

600 

■7 - 

REGEL 

1140 

197 

REGEL 

1680 

159 

REGEL 

2220 

131 




REGEL 

610 

215 

REGEL 

1150 

120 ■ 

REGEL 

1690 - 

226 

REGEL 

2230 

7 




REGEL 

620 

165 

REGEL 

1160 

246 

REGEL 

1700 

56 

REGEL 

2240 

171 




REGEL 

630 

29 

REGEL 

1170 

252 

REGEL 

1710 

106 

REGEL 

2250 

48 
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Programma Ufo 


Y.S.Kasmin is voor onze regelmatige lezer een 295 
bekende inzender. Nu heeft hij weer wat schoons ^oo 
gemaakt. Een ruimtespel, het spel bestaat uit 5 305 

levels. De speler begint met 5 ruimteschepen. In- 
dien je tegen een UFO botst, verliest je één kost¬ 
baar ruimteschip. Elke neergeschoten UFO levert 315 
25 punten op. De speler kan als hij even pauze¬ 
ren wil dit doen door op run/stop te drukken. Her- 320 
vatten kan men het spel ook weer door op de 
spatiebalk te drukken. 325 


100 

105 

110 

115 

120 

.125 

130 

135 

140 

145 

150 

155 

160 


rem ***************************** 
rem ** ufo strike ** 

rem ** ** 

rem ** by yerrel kasmin ** 

rem ** ** 

rem ** (c) 1989 conmodote-info ** 

rem ** *********************** ** 
rem !!!! attentie !!!! 

rem 
rem 

rem voordat u deze listing gaat 
rem overtypen moet u eerst de 
rem volgende commando' s invoeren 


330 

335 

340 

345 

350 

355 

360 


165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 


240 


245 

250 

255 

260 

265 

270 

275 

280 

285 


rem 

rem 

rem poke 43,1 [return] 

rem poke 44,64 [return] 

rem poke 16384,0[return] 

rem clr [return] 

print chr$(147)chr$ (5) 

print"18[SPACE]sec.[SPACE]geduld[S 

PACE ] a. u . b." 

forx=2049to4453:reada:pokex,a:nextx 
print:print 

print"programma[SPACE]opslaan[SPAC 
E]op:":print 

print"1[SPACE]-[SPACE]tape":print" 

2[SPACE]-[SPACE]diskette" 

print:print"toets[SPACE]uw[SPACE]k 

euze[SPACE] (1/2) ." 

geta$:on-(<a$="l")+2*(a$="2")) got 
o235,240:goto230 

print:print"stop[SPACE]een[SPACE]c 
assette[SPACE]in[SPACE]de[SPACE]da 
tarecorder.":de—1:goto2 4 5 
print:print"stop[SPACE]een[SPACE]d 
iskette[SPACE]in[SPACE]de[SPACE]di 
skdrive.":de=8 

print:print"druk[SPACE]daarna[SPAC 
E]op[SPACE]return.." 
geta$ : ifa$Ochr$ (13) then250 
sys57812"ufo[SPACE]strike" , de, 1:re 
m file naam 

pokel93,1:pokel94,8:rem startadres 
$0801 (2049 dec.) 

pokel74,102;pokel75,17:rem eindadr 
es $1165 (4453 dec.) 
sys62957:rem save 
print:print:print 

print"oke,[SPACE]programma[SPACE]1 

aden[SPACE]met:":print 

print"load"chr$(34)"ufo[SPACE]stri 

ke"chr$(3 4)",8":print:print 


365 

370 

375 

380 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 


print"runnen[SPACE]met[SPACE]'run' 

treturn.":end 

rem 

rem 

data 11,8,1,0,158,50,48,54,52,0,0, 
0,0,0,0,234 

data 169,8,32,210,255,120,169,51,1 

33,1,169,208,133,3,169,48 

data 133,5,160,0,132,2,132,4,162,3 

2,177,2,145,4,200,208 

data 249,230,3,230,5,202,208,242,1 

69,55,133,1,169,29,141,24 

data 208,88,169,0,162,24,157,0, 212 

,202,16,250,162,191,157,64 

data 3,202,16,250,141,1,203,141,2, 

203,169,15,141,24,212,162 

data 7,189,121,9,157,0,48,202,16,2 

47,76,213,8,162,0,138 

data 157,0,4,157,0,5,157,0,6,157,0 

, 7,72,169,8,157 

data 0,216, 157,0,217,157,0,218,157 

,0,219,104,232,208,225,96 

data 169,42,141,72,3,141,75,3,141, 

117,3,141,120,3,162,63 

data 189,57,9,188,249,8,157,128,3, 

152,157,192,3,202,16, 240 

data 169,14,141,248,7,169,13,141,2 

49,7,162,6,169,15,157,249 

data 7,202,208,250,169,255,141,28, 

208,169,7,141,39,208,169,14 

data 141,37,208,96,120,169,130,141 

,20,3,169,9,141,21,3,169 

data 101, 141, 24,3, 169, 17, 141,25, 3, 

88, 32, 68,22 9,169,0,141 

data 32,208,141,33,208,76,185,9,0, 

40,0,0,170,0,2,190 

data 128,130,255,130,162,255,138,4 
2,255, 168, 11,255,224,43,235,232 
data 47,170,248,170,190,170,149,12 
5,86,170,190,170,47,170,248,43 
data 235,232,11,255,224,42,255,168 
, 162,255, 138,130,255,130,2,190 
data 128,0,170,0,0,40,0,0,0,0,0,16 
0,0,0,170,170 

data 0,149,170,0,170,128,0,42,160, 

0,10,160,0,41,106,128 

data 170,170,160,234,165,168,170,1 

69,170, 234,165,168,170,170,160,41 

data 106,128,10,160,0,42,160,0,170 

,128,0,149,170,0,170,170 

data 0,160,0,0,0,0,0,0,126,251,122 

,251,122,195,126,0 

data 234,32,15,17,165,203,201,63,2 

08,9,169,1,133,252, 169,0 

data 141,4,212,165,203,201,60,208, 

4,169,0,133,252,162,0,30 

data 0,48, 144,8, 189, 0,48, 9, 1, 157,0 

,48,232,224,7,208 

data 238,238,192,2,76,49,234,234,3 

2,101,14,169,11,141,17,208 

data 32,110,8,32,246,10,169,53,141 

,2,6,169,49,141,242,6 

data 169,1,.141,0,204,32,145,8,162, 

28,160,150,142,0,208,140 

data 1,208,169,27,141,17,208,173,0 

,204,201,1,208,6,32,228 

data 11,76,31,10,173,0,204,201,2,2 

08,6,32,255,11,76,31 


40 


Commodore Info 6189 








- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


465 data 10,173,0,204,201,3,208,6,32,2 
8,12,76,31,10,173,0 

470 data 204,201,4,208,6,32,59,12,76,3 
1,10,32,59,12,173,242 
475 data 6,201,49,208,6,32,110,12,76,8 
0,10,173,242,Ö,201,30 
480 data 208,6,32,121,12,76,86,10,173, 

242.6.201.51.208.6.32 

485 data 140,12,76,86,10,173,242,6,201 
,52,208,6,32,159,12,76 
490 data 86,10,32,170,12,169,253,141,2 

1.208.169.15.141.24.212.32 

495 data 187,12,165,2,201,2,208,3,76,2 
32,9,169,1,141,21,208 
500 data 169,0,141,4,212,32,227,10,160 
,0,173,27,212,41,63,170 
505 data 169,0,157,128,3,162,70,32,179 
,238,202,208,250,200,192,50 
510 data 208,232,206,2,6,173,2,6,201,4 
8,240,42,162,0,160,125 
515 data 142,0,208,140,1,208,32,145,8, 
238,0,208,162,205,32,179 
520 data 238,202,208,250,238,0,208,173 
,0,208,201,28,208,235,169,1 
525 data 141,0,204,76,232,9,169,0,141, 

21.208.169.166.160.11.32 

530 data 30,171,165,203,201,64,208,7,1 
73,0,220,41,16,208,243,76 
535 data 185,9,173,24,212,9,128,141,24 
,212,169,255,141,15,212,169 
540 data 128,141,18,212,96,162,2,160,3 
1,24,32,10,229,169,136,160 
545 data 11,32,30,171,162,3,134,2,166, 
2,160,31,24,32,10,229 
550 data 134,2,169,146,160,11,32,30,17 
1,166,2,232,134,2,224,22 
555 data 144,230,162,22,160,31,24,32,1 
0,229,169,156,160,11,32,30 
560 data 171,162,4,160,32,24,32,10,229 
,169,113,160,11,32,30,171 
565 data 162,10,160,32,24,32,10,229,16 
9,121,160,11,32,30,171,162 
570 data 16,160,32,24,32,10,229,169,12 
8,160,11,32,30,171,162,5 
575 data 169,48,157,16,5,72,169,7,157, 
16,217,104,202,16,243, 96 
580 data 5,83,67,79,82,69,58,0,5,83,72 
, 73, 80,58,0,5 

585 data 76,69,86,69,76,58,0,158,176,1 
92,192,192,192,192,192,174 
590 data 0,158,221,32,32,32,32,32,32,2 
21,0,158,173,192,192,192 
595 data 192,192,192,189,0,19,29,29,29 
,29,29,29,29,29,29,29 
600 data 29,29,29,29,17,17,17,17,17,17 
,17,17,5,71,65,77 

605 data 69,32,79,86,69,82,13,13,13,29 
,29,29,29,29,29,29 

610 data 29,29,29,29,29,80,82,69,83,83 
, 32, 65,78,89,32,75 

615 data 69,89,0,169,70,162,0,157,4,20 
8,157,5,208,133,2,24 

620 data 165,2,105,30,232,232,224,12,2 
08,237,238,0,204,96,169, 70 
625 data 162,0,157,5,208,133,2,169,240 
,157,4,208,24,165,2,105 
630 data 30,232,232,224,12,208,235,238 
,0,204,96,169,70,162,0, 157 


635 data 5,208,133,2,169,100,157,4,208 
,24,165,2,105,30,133,2 
640 data 232,232,224,12,208,233,238,0, 
204,96,169,70,162,0,157,4 
645 data 208,133,2,169,200,157,5,208,2 
4,165,2,105,30,232,232,224 
650 data 12,208,235,238,0,204,173,0,20 
4,201,6,208,15,169,1,141 
655 data 0,204,173,242,6,201,53,240,3, 
238,242,6,96,162,11,169 
660 data 1,157,0,202,202,16,250,96,162 
,11,169,1,157,0,202,72 
665 data 169,0,157,1,202,104,202,202,1 
6,240,96,162,11,169,1,157 
670 data 1,202,72,169,0,157,0,202,104, 

202.202.16.240.96.162.11 

675 data 169,0,157,0,202,202,16,250,96 
,32,227,10,162,11,173,27 
680 data 212,41,1,157,0,202,202,16,245 
,96,169,0,133,252,165,252 
685 data 208,252,169,1,141,0,203,173,3 
0,208,173,0,220,41,2,208 
690 data 3,238,1,208,173,0,220,41,1,20 
8,3,206,1,208,173,0 

695 data 220,41,4,208,3,206,0,208,173, 
0,220,41,8,208,3,238 

700 data 0,208,173,1,208,201,50,208,3, 
238,1,208,201,229,208,3 
705 data 206,1,208,173,0,208,201,26,20 
8,3,238,0,208,201,100,208 
710 data 3,206,0,208,162,6,32,179,238, 
202,208,250,238,38,208,173 
715 data 30,208,133,251,41,1,240,5,169 
,1,133,2,96,173,21,208 
720 data 41,252,208,5,169,2,133,2,96,1 
73,0,220,41,16,208,28 
725 data 173,21,208,9,2,141,21,208,173 
,2,208,208,15,234, 173, 0 
730 data 208,234,234,141,2,208,173,1,2 
08,141,3,208,173,2,208,240 
735 data 43,24,173,2,208,105,3,141,2,2 
08,141,1,212,144,5,169 
740 data 0,141,2,208,238,40,208,169,0, 
141,0,212,141,5,212,169 
745 data 240,141,6,212,169>129,141,4,2 

12.76.157.13.173.21.208.41 

750 data 253,141,21,208,169,0,141,4,21 
2,141,2,208,162,0,18 9, 0 
755 data 202,208,6,222,4,208,76,173,13 
,254,4,208,189,1,202,208 
760 data 6,222,5,208,76,187,13,254,5,2 
08,189,4,208,201,255,208 
765 data 3,222,0,202,201,25,208,3,254, 
0,202,189,5,208,201,230 
770 data 208,3,222,1,202,201,50,208,3, 

254.1.202.232.232.224.12 

775 data 208,188,165,251,41,2,240,91,1 
73,21,208,141,255,207,169, 4 
780 data 141,254,207,169,3,13,254,207, 
141,21,208,173,254,207,45,255 
785 data 207,240,21,174,192,2,232,232, 
142,0,206,173,192,2,205,0 
790 data 206,208,248,173,30,208,208,12 
,173,254,207,10,141,254,207,208 
795 data 210,76,62,14,32,71,14,169,0,1 

41.2.208.173.21.208.41 

800 data 253,141,21,208,173,254,207,77 
,255,207,141,255,207,173,255, 207 
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805 data 141,21,208,76,191,12,160,0,24 
f 162,5,254,16,5, 189, 16 

810 data 5,201,58,208,9,169,48,157,16, 
5,202,76,76,14,200,192 

815 data 25,208,229,96,169,0,141,0,207 
,141,1,207,141,0,203, 32 

820 data 68,229,162,145,134,2,160,14,1 
32,3,160,0,177,2,201,43 

825 data 240,11,32,210,255,230,2,208,2 
41,230,3,208,237,76,115,16 

830 data 147,19,13,13,129,29,29,29,29, 
29,29,29,29,29,29, 29 

835 data 29,64,64,32,32,64,64,32,64,64 
,64,64,32,64,64, 64 

840 data 64,13,29,29,29,29,29,29,29,29 
,29,29,29,29,64,64 

845 data 32,32,64,64,32,64,64,32,32,32 
,64,32,32,64,13,30 

850 data 29,29,29,29,29,29,29,29,29,29 
,29,29,64,64,32,32 

855 data 64,64,32,64,64,64,32,32,64,32 
,32,64,13,29,29, 29 

860 data 29,29,29,29,29,29,29,29,29,64 
,64,32,32,64,64, 32 

865 data 64,64,32,32,32,64,32,32,64,13 
,156,29,29,29,29,29 

870 data 29,29,29,29,29,29,29,64,64,32 
, 32, 64, 64,32,64,64 

875 data 32,32,32,64,32,32,64,13,29,29 
,29,29,29,29,29,29 

880 data 29,29,29,29,29,64,64,64,64,32 
,32,64,64,32,32,32 

885 data 64,64,64,64,13,13,156,29,29,2 
9,29,64,64,64,64,64 

890 data 32,64,64,64,64,64,64,32,64,64 
, 64, 64, 64,64,32,64 

895 data 64,32,64,64,32,32,64,32,64,64 


REGEL 
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81 
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490 
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110 

55 
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,64,64,13,29,29,29 

900 data 29,64,64,32,32,32,32,32,32,64 
,64,32,32,32,64,64 

905 data 32,32,64,64,32,64,64,32,64,64 
,32,64,32,32,64,64 

910 data 13,30,29,29,29,29,64,64,64,64 
,64,32,32,32,64,64 

915 data 32,32,32,64,64,64,64,32,32,32 
, 64, 64,32,64,64,64 

920 data 32,32,32,64,64,64,13,29,29,29 
,29,29,29,29,64,64 

925 data 32,32,32,64,64,32,32,32,64,64 
,32,64,64,32,32,64 

930 data 64,32,64,64,32,64,32,32,64,64 
,13,129,29,29,29,29 

935 data 64,64,64,64,64,32,32,32,64,64 
,32,32,32,64,64,32 

940 data 32,64,64,32,64,64,32,64,64,32 
, 32, 64,32,64,64,64 

945 data 64,13,13,13,13,5,29,29,29,29, 
29,29,67,79,80,89 

950 data 82,73,71,72,84,32,49,57,56,57 
,32,67,79,77,77,79 

955 data 68,79,82,69,32,73,78,70,79,13 
,13,153,29,29,29,29 

960 data 29,29,29,80,82,79,71,82,65,77 
,77,69,68,32,66,89 

965 data 32,89,69,82,82,69,76,32,75,65 
, 83, 77, 73,78,13,13 

970 data 13,150,29,29,29,29,29,29,29,2 
9,29,29,29,80,82,69 

975 data 83,83,32,70,73,82,69,32,84,79 
,32,80,76,65,89,19 

980 data 43,234,162,185,169,15,141,24, 
212,173,0,220,41,16,208,1 

985 data 96,32,179,238,202,208,242,142 



,4,212, 
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| De PC als bouwdoos 

De systeemkast van een IBM compatible PC, Amiga 2000 of Macintosh 
biedt ruimte voor zeer veel uitbreidingen. Dankzij deze open-systeem 
architectuur kunt u uw PC precies op maat snijden. 

| PC’s upgraden 

Het opvoeren van de PC kan op vele manieren: een snellere CPU, het 
vervangen van de hoofdkaart, etc. Maar bezint eer gij begint! 

| Besturingssystemen 

Zonder besturingssysteem is de computer niets anders dan een doos vol 
dure hardware. Alles wat u met uw computer kunt doen hangt voor 
een groot deel af van uw Operating System. Hoe zit een OS in elkaar, 
en wat zijn de meest gangbare varianten. 

| Drives 

Het externe geheugen is minstens even belangrijk als het interne geheu¬ 
gen. Drives zijn er in vele soorten en maten, waar sinds kort ook de 
draagbare harde schijf aan is toegevoegd. 

| Printers 

Ondanks alle mooie toekomstdromen, heeft de computer het papier nog 
lang niet vervangen. Sterker nog, de groei van computers heeft een 
nog sterkere groei van de papierproduktie met zich meegebracht. 
Printers vervullen in deze cyclus een zeer belangrijke functie. 


| Redactioneel EB Special 

Ieder jaar zijn er weer veel mensen, die voor de eerste keer met het 
fenomeen computer te maken krijgen. Dat dreigt, zeker bij gebeurte¬ 
nissen als de Efficiency Beurs, een vergeten groep te worden. Men wil 
niet graag toegeven, dat al die moeilijke begrippen en dat computer- 
jargon niet begrepen worden. Al sinds een paar jaar proberen we 
middels deze speciale EB uitgave juist de beginners even een opstapje 
te geven. Ook onder de lezers van onze reeks computerbladen zijn er 
ieder jaar weer vele, die zo’n algemene inleiding waarderen, daarom 
voegen we deze EB Special dan ook als bijlage in al onze bladen toe. 
Een zinvolle traditie, ook al zal de geroutineerde computeraar mis¬ 
schien neerkijken op het niveau. Probeer echter begrip te hebben voor 
hen, die nog maar aan het begin staan, en geef deze bijlage desnoods 
aan iemand in uw omgeving. We hopen dat er toch heel wat lezers 
zijn, die er wat aan hebben, al stoppen ze dit blaadje maar stiekem 
onderin hun bureau weg, voor het geval dat!!! 


Luc Sala 


















De PC is een echte bouwdoos. De systeemkast van een IBM compatible PC, 
Amiga 2000 of Macintosh biedt ruimte voor uitbreidingen, zoals extra 
interfacekaarten, meer RAM, een harde schijf of diskettestation, 
tapestreamer, modem-, fax- of scannerkaart. Dankzij deze open-systeem 

architectuur kunt u de PC precies op maat snijden. 


De PC als 
bouwdoos 



IBMPS/2 model 50 
Op de systeemkuart zijn de 
uitbreidingsslots zichtbaar• 



Snij uw systeem op maat 

Bij de PC valt de uitbreidingsruimte in twee delen uiteen: de uitbrei¬ 
dingsslots waarin extra elektronicakaarten gestoken kunnen wor¬ 
den en het drive chassis waarin extra diskdrives of een harde schijf 
gemonteerd kan worden . Enkele PC s bieden ook nog de mogelijkheid 
om de systeemkast modulegewijs uit te breiden, Een kastje met een 
extra drive of geheugen kan aan. of op de moederkast geklikt worden. 
Dit is bijvoorbeeld het geval bij de Amiga 500 en de Tandon PC- mo¬ 
dellen met uitwisselbare harddisk. 


Redenen voor uitbreiding 

In de praktijk blijkt een PC veelal, met de eisen, van de gebruiker mee te 
groeien. Zijn in eerste instantie twee diskdrives misschien voldoende, 
dan. wordt er later toch maai- een 20 MB harde schijf bijgezet. Die 
saaie Hercules kaart wordt vervangen door een EGA kleuren video¬ 
kaart en het geheugen uitgebreid. Daarmee zijn meteen al drie be¬ 
langrijke uitbreidingsredenen ter sprake gekomen: 

« Meer opslagcapaciteit van. de drives 

• Overstap van monochroom naar kieurenvideo 

* Uitbreiding van het RAM! geheugen 

Drie andere belangrijke redenen zijn: 

* Inbouw van extra PC-functies; bijvoorbeeld een modem, fax. game 
adapter of digitizer 

• Behoefte aan meer aansluitmogelijkheden (voor muis, modem, prin¬ 
ter, netwerk, etc.) in de vorm van seriële en parallelle poorten of 
netwerkkaarten 

« Versnellen van het rekenwerk met een andere CPU of coprocessor 

Daarnaast zijn er nog tal van andere specifieke redenen die we verder 

in het midden laten, 

Uitbreidingsslots 

Doorgaans ligt onder in de systeemkast de hoofd- of moederkaari 
Deze groen gecoate plastic kaart bevat de elektronische onderdelen 
(oa. dc chips en microprocessoren) en hun onderlinge verbindingen. 
Bovenop deze moederkaart staan zwarte langwerpige ‘contactdoosjes’ 
met sleuven, waarin met een goudlaagje bedekte contacten zitten. De 
lange sleufvormige contactdozen worden expansion. slots, kortweg 
slots genoemd. 

In een. slot kunt u de cormeclor, bet met contactpunten bedekte uitsteek- 










sel aan de onderzijde, van één uitbreidingskaart steken. Plug de kaart 
erin en de computer kan een taak meer verrichten of beschikt nu over 
extra geheugen. 

Slots zijn er in meerdere maten en soorten. Het oudste type is het XT-slot 
voor 8-bits communicatie op de IBM PC XT-bus. NB: via de bus com¬ 
municeert de elektronica op de hoofdkaart met de in de slots gestoken 
interfacekaarten. De verbeterde AT-slots maken een aanzienlijk snel¬ 
lere 16-bits datacommunicatie mogelijk op de AT-bus. Betrekkelijk 
nieuw zijn de IBM PS/2-slots en de EISA- slots. 

De slots stellen eisen aan de interfacekaarten. Een AT kaart past niet in 
een XT-, PS/2- of Amiga-slot. PS/2 past, net als de eigen Amiga-kaar- 
ten, alleen op zich zelf. En de XT kaarten passen zowel in XT- als 
AT-slots. In het laatste geval natuurlijk alle met XT-werking! De 
EISA-bus poogt meer universeel te zijn en accepteert naast de EISA- 
ook XT- en AT-connectoren. Het zal duidelijk zijn dat u bij de aankoop 
van uitbreidingskaarten hiermee rekening dient te houden. 

Hoeveel vrije slots per machine beschikbaar zijn hangt van het ontwerp 
en de uitvoering af. Vrijwel altijd zijn er al enkele slots bezet met een 
videokaart, multifunctiekaart en drivecontroller. Dan houdt de ge¬ 
bruiker zo’n 5 tot 8 lege slots over. 


Kaarten 

De naam kaart slaat op de platte vorm van de elektronische printplaat. 
In feite is een uitbreidingskaart gewoon een print met daarop een 
aantal speciale chips plus de ondersteunende elektronica. Die chips 
bepalen wat de kaart voor de PC gaat doen. Zet er extra RAM-chips 
op en de computer krijgt de beschikking over meer geheugen. Monteer 
chips voor aansturing van gedetailleerde kleurenbeelden en de fraais¬ 
te graphics verschijnen op het beeldscherm. Een klokje met batterij- 
voeding voorziet de XT van een ingebouwde klok, En communicatie- 
chips verzorgen de modemverbinding, de fax of het netwerk. 



We geven hier een kort overzicht van de meest gebruikte uitbreidings¬ 
kaarten: 

• Videokaarten voor het uitsturen van monochrome of kleurenbeel¬ 
den naar een geschikte monitor 

• Drive-Controllerkaarten verzorgen het dataverkeer tussen de 
diskdrives en/of harddisk met de microprocessor (= centrale reken¬ 
eenheid) van de PC 

• Geheugenkaarten breiden het RAM uit. Hoe meer RAM- geheu¬ 
gen des te meer en sneller kan de in het RAM opgeslagen informa¬ 
tie verwerkt worden. Van belang voor grote spreadsheets, databa¬ 
ses, gedetailleerde videobeelden, e.d. 

• Modemkaarten voor het communiceren met andere PC’s over de 
telefoonlijn 

• Netwerkkaarten voor het aansluiten van meerdere PC’s op een 
centrale dienstverlener (‘server’) voor het beheer van de databank 
en/of gezamelijke printer en de lokale communicatie tussen de kan- 
toormachines 

• Multifunctiekaarten voorzien het systeem van een batterij gevoe¬ 
de klok, extra seriële en/of parallelle aansluitpoorten en aanslui¬ 
ting voor een spelpook (= game adapter) 


Noviteiten 
EB '89 

De Efficiency Beurs ’89, nu voor de 
derde keer als jaarlijks evenement, 
is natuurlijk weer een enorme hap¬ 
pening. Toch kunnen wij ons niet 
aan de indruk onttrekken dat de in¬ 
teresse van de kant van het pu¬ 
bliek, maar ook van de kant van 
een aantal grote computerleveran¬ 
ciers, aan het afnemen is. Het weg¬ 
blijven van IBM is voor de organi¬ 
satie toch wel een klap, en ook be¬ 
drijven als Apple, Buil, Digital 
Equipment en Sun zijn afwezig. 
Apple heeft natuurlijk de Mac- 
World, Buil organiseerde begin sep¬ 
tember in de Bull(e)wijk het Forum 
Automatisering in bedrijf. Andere 
groten zijn er natuurlijk wel, zoals 
Hewlett Packard, Olivetti, Sie¬ 
mens, Commodore en Atari. De 
rangen van de PC leveranciers zijn 
verder ruim vertegenwoordigd en 
software en toebehoren zijn in alle 
soorten en maten te bewonderen. 
Het echte nieuws is niet dik ge¬ 
zaaid, maar daar zijn we de laatste 
jaren wel aan gewend. Let vooral 
op de 386’s, de 486 van Apricot, gro¬ 
te en kleine portables en de prolife¬ 
ratie van grafische gebruikersin¬ 
terfaces die allemaal op elkaar lij¬ 
ken, maar onder verschillende 
besturingssystemen draaien. 



Amtron 

D 709 03403 ■ 79690 

De serie van LEO computersyste¬ 
men is uitgebreid met een 386-25 
MHZ en een 386-33 MHz tower. 
Beide machines hebben ook een In¬ 
tel 82385 cache controller aan 
boord. Het cache geheugen be¬ 
draagt 64 KB. Het 4 MB geheugen 
is uit te breiden tot 16 MB. Een 
VGA videokaart met 512 KB ge¬ 
heugen, 5,25” diskdrive, diverse 
poorten e.d. zijn aanwezig. Hard¬ 
disks zijn optioneel. 

Ook levert Amtron twee nieuwe 
monitors van Princeton: de Ultra 
14 en de Ultra 16, die compatible 
zijn met de CGA-SuperVGA stan¬ 
daards. De dot pitch bedraagt 
0.31 mm. en de maximale reso 
lutie resp. 800 x 600 en 1024 
x 768. Een andere nieuwe 
monitor, de MM-411 
komt van Amtronics. 

Deze flatscreen 














heeft een beelddiameter van 14" en 
een scanfrequentie van 18.4 KHz,, 
de bandbreedte is 18 MHz. De mo¬ 
nitor is Hercules en IBM compati¬ 
ble. 

Gestetner heeft twee nieuwe laser¬ 
printers die door Amtron getoond 
worden. Het zijn de LP-600 en de 
LP-800. De 600 is HP Laserjet II 
compatible en de 800 is Postscript 
compatible. De resolutie bedraagt 
bij beide machines 300 x 300 dpi. 
De PS-388 Postscript emulatie- 
kaart van Princeton is Adobe Post¬ 
script compatible en heeft stan¬ 
daard 35 Postscript fonts. De con- 
trollerkaart past in elke PC/XT/AT 
en PS/2-30 compatible machine. De 
kaart maakt gebruik van een Wei- 
tec 10 Mips Risc chip. 

Ook heeft Amtron een aantal nieu¬ 
we Ethernet en Digiboard produk- 
ten op zijn stand. 

Apricot Systems 

O 135 023 - 340884 


Waarschijnlijk de eerste seriema- 
chine met de 80486 ter wereld, de 
Apricot VX/FT, zal door Apricot 
Systems op stand 135 in de Oosthal 
worden getoond. De i486 heeft een 
geïntegreerde rekenkundige pro¬ 
cessor en is in de VX/FT gebouwd 
op een moederbord met de MCA 
busstructuur. De computer heeft 
een prestatieniveau van 15 keer de 
oorspronkelijke DEC VAX compu 
ter (15 MIPS). De aanduiding FT in 
de naam staat voor Fault Tolerant, 
wat weer slaat op de ingebouwde 
Uninterruptable Power Supply 
waarmee de machine nog maxi¬ 
maal twee uur door kan wer¬ 
ken als de netstroom is uit¬ 
gevallen. Daarnaast is 
er door speciale 
warmtesensoren 



• Kaarten voor een extra microprocessor (coprocessor). Deze co- 
processor kan de machine flink versnellen door de centrale proces¬ 
sor, de CPU, van een aantal tijd-consumerende taken te ontlasten. 

• Digitizers of scanners voor het uitlezen van tekst of grafieken/te¬ 
keningen, foto’s e.d. door de PC 

• Besturingskaarten voor randapparatuur; bijvoorbeeld een 
kaart voor het aansturen van een tapestreamer 

• Ook een geheel nieuwe hoofdkaart (Tnother board’) behoort tot 
de mogelijkheden. Is het moederbord met CPU verouderd, dan 
kunt u dit er uit halen en door een krachtiger update vervangen. 

De ombouw van een XT tot AT, of AT tot 80386 machine wordt 
daarmee relatief eenvoudig. 

Van de meest gangbare kaarten bestaan tal van uitvoeringen in verschil¬ 
lende prijsklassen. Neem bijvoorbeeld de Hercules videokaart. Een 
echte standaard voor monochrome PC-beelden, die door tientallen 
fabrikanten tegen concurrerende prijzen geleverd wordt. Het aanbod 
is groot en let bij aankoop dan ook op de kwaliteit van de onderdelen, 
de handleiding, de te verwachten systeemprestaties (AT of XT), het 
gebruiksgemak, de installatie en of de kaart compatible is met de 
hardware. 


Kaart ruimte 

Het fysieke formaat van kaart en slotomgeving zijn bepalend voor het al 
of niet passen van de interfacekaart. In krappe systeemkasten, oa. bij 
compacte en draagbare modellen, gaan alleen zogenaamde halflange 
kaarten. Een groot bureau- of towermodel systeemkast kan ook full- 

size kaarten aan. 

Een ander probleem is de dikte van de kaart. Stevige kaarten, bijvoor¬ 
beeld een hardcard waarop een harde schijf gemonteerd is, kunnen 
qua breedte wel eens twee slots aan ruimte opslokken! 


Drive chassis 


Zoals u in het artikel over drives kunt lezen is meer dan één diskdrive 
en/of de inbouw van een harde schijf een voorwaarde om snel en 
comfortabel te kunnen werken. Een diskettestation of harddisk wordt 
voor de PC in twee vaste inbouwmaten geleverd. De breedste is de 
5.25 inch versie. De smalste de 3.5 inch versie. Het smalle type 
past met geschikte adapter wel in een 5.25 inch chassis. Omgekeerd 
niet. 

Voor drive-uitbreiding bent u naast de mogelijkheden van de control- 
lerkaart afhankelijk van de ruimte in het drive chassis, ook wel 
‘drive bay’ genoemd. In de grotere kantoormachines en towerkasten 
kunt u met gemak vier tot zes drives plaatsen. Bij compacte modellen 
en portables is de ruimte dikwijls met één extra drive al vol. 


Voeding 

Extra drives, kaarten en sommige randapparatuur stellen hoge eisen 
aan de stroomvoorziening. Kan bij een kleinere kantoor-PC 150 
Watt voeding voldoende zijn, bij een volledig uitgebouwde toren-PC 
komt u al spoedig op een behoefte van 200 Watt of meer. 

Een tweede beperking vormt het aantal beschikbare stroomkabeltjes dat 
aan de PC voeding ontspringt. Vier extra drives wil vaak nog wel 
lukken. Zes vormt een probleem. 


Kastruimte 

Niet elke systeemkast biedt evenveel uitbreidingsruimte. De grote to- 
wer modellen zijn berekend op meer en zwaardere uitbreidingen 
dan de doorsnee PC gebruiker kan bedenken. Ook de normale kan- 
toorkasten zullen in de meeste gevallen voldoende ruimte en voe¬ 
ding bieden. 

Geheel anders wordt het bij de minitorens, compact modellen en 






portables. Daarin wordt het woekeren met de vrije slots, kaart- en 
driveruimte. Ook de voeding kan te krap bemeten blijken. 

Blijkt de ruimte in uw PC te klein, dan zal er naar externe mogelijkheden 
gezocht moeten worden. Bijvoorbeeld: 

• Een expansion box. Dit is een soort uitbreidingshuis met vrije 
slots en een drive chassis dat naast de moeder-PC geplaatst wordt. 
De moeder bestuurt deze dochter alsof de uitbreidingen in haar ei¬ 
gen systeemkast zitten 

• Add/click on modules die via een uitbreidingsbus of kabeltje met 
de systeemkast verbonden worden. Een bekend voorbeeld is de 
Amiga 500 die middels modules van extra RAM en drives voorzien 
kan worden 

Het nadeel van deze uitbreidingen is het feit dat de compacte vormgeving 
en de extra bureauruimte verloren gaan. Daarom is het, met de toe¬ 
komstige uitbreidingen in het achterhoofd, beter om direct voor een 
groter model PC te kiezen dan later met ruimte te moeten woekeren 
of externe uitbreidingen aan te moeten sluiten. 

RAM chips 

Nog vaak worden PC’s met slechts 512 KB aan vrij RAM verkocht. 
Steeds meer programma’s vragen echter al om 640 KB. Op een XT 
kunt u veelal op de hoofdkaart uitbreiden door gelijksoortige RAM 
chips in de drager (sockets) te steken. 

Bij de AT, 386 en 68.000 machines zijn uitbreidingen tot vele MegaBy- 
tes mogelijk. Stel daarbij altijd de vragen: 

Welk soort Chips of uitbreidingskaart zijn nodig? Hoeveel RAM heeft de 
software eigenlijk nodig? Wordt het allemaal niet te duur? 

Bouwen is niet zo moeilijk als u denkt 

Veel PC gebruikers durven hun machine niet eens open te maken, laat 
staan er iets extra’s in te zetten. Er zou immers snel schade aan zo’n 
ingewikkeld apparaat kunnen ontstaan? Gelukkig valt dat allemaal 
best mee. Iedereen die een schroevendraaier kan hanteren en twee 
stekkeruiteinden in elkaar kan steken, is in staat om zelf zijn/haar 
PC op maat te verbouwen. 

Het openen van de systeemkast staat in elke goede handleiding en in tal 
van PC doe-boeken beschreven. Hetzelfde geldt voor het inpluggen 
van kaarten en het plaatsen van extra drives. Ook kunt u de leveran¬ 
cier om raad vragen en kijken hoe het bij gelijksoortige PC’s zit. Neem 
wel even de volgende gouden regels in acht: 

• Schakel altijd de stroom uit 

• Voorkom statische ontladingen. Grijp eerst een metalen buis of bu¬ 
reau vast alvorens aan de kaarten te komen 

• Gebruik passend gereedschap. In de praktijk twee schroevendraai¬ 
ers 

• Forceer nooit iets 

• Lees de handleiding 

• Let goed op de plaats van de aangegeven markeringen 

• Vraag de leverancier om de bij uw systeemkasttype behorende 
schroefjes, geleiderails, kaartklemmen e.d. 

• Blijf overal af waar u niet aan hoeft te komen 

• Denk aan eventuele garantiebepalingen 

Echt, het is allemaal niet veel moeilijker dan het monteren van een 
nieuw stopcontact. 

Het bouwdoosconcept of open-systeem architectuur van de Personal 
Computer maakt dat u de PC geheel op maat kunt snijden. Natuurlijk 
blijft het verstandig om een zo compleet mogelijk systeem te kopen, 
maar er kunnen aanvankelijk budgetaire beperkingen zijn. Verder 
kunnen toekomstige uitbreidingen vaak nog niet worden voorzien. 
Mocht de eigenaar in de toekomst meer of nog sneller willen, dan 
biedt de grote PC daartoe de ruimte. Om de prijs en de installatie 
behoeft u het echt niet te laten. 


U.S. 


voor gezorgd, dat mogelijke elek¬ 
tronische fouten in een vroeg stadi¬ 
um gesignaleerd kunnen worden. 
Een ander Fault Tolerant aspect is 
de mogelijkheid van ‘mirroring’ van 
de ene harddisk op een tweede mo¬ 
del. 

De VX/FT heeft een maximale 
harddisk capaciteit van 5 Gigabyte 
en er is een DAT recorder voorzien 
voor backups tot 1,2 GB per tape. 
De machine heeft 7 vrije MCA slots. 
Er zijn vier modellen van de 800 
waarvan het eerste model, de 
800/10, beschikt over de 80386 (25 
MHz). De 800 series bestaat uit de 
modellen die bedoeld zijn als Unixi 
host, terwijl de 400 serie zal wor¬ 
den gepositioneerd als netwerkser- 
ver. 


Argo 

A 221 03465 - 95211 

Met de Dancall autotelefoon be¬ 
staat de mogelijkheid om middels 
een Line Interface Module diverse 
andere apparatuur op de telefoon 
aan te sluiten. Er kunnen telefax, 
modem, telefooncentrale en derge¬ 
lijke gekoppeld worden. 


Ashton-Tate 

Z 401 020 - 462515 

Samen met geautoriseerde dealers, 
zoals Positronica, Tritech, Olivetti 
en HP, zal Ashton-Tate haar soft¬ 
ware dBase IV, SQL Server en het 
kantoorautomatiseringspakket 
Framework III tonen. Op de eigen 
stand demonstreert Ashton-Tate 
ook de nieuwste versie van Rapid- 
File, een file manager met geïnte¬ 
greerde rapportgenerator en tekst¬ 
verwerker voor bestandsverwer- 
king, memo’s en mailmerge. De 
nieuwe versie 1.2 van RapidFile 
biedt een aantal nieuwe opties voor 
(Nederlandse) spellingcontrole, af¬ 
drukken en gebruik van dBase en 1 
Lotus bestanden. 



De Blaeuwe Werelt 

E 356 055 - 274848 

De Blaeuwe Werelt houdt zich 
vooral bezig met computerformu- 
lieren, druk- en verwerkingsappa 
ratuur en het opslaan van docu¬ 
menten. Een primeur op de 
beurs is een nieuw ontwik¬ 
kelde kwaliteit veevcled, _.. _ 

papier, een lovens -^ /jÊ~Ë 0/ 
waardig produkt 







gezien de enorme stapels die elke 
dag weer door talloze printers ge¬ 
jaagd worden. 

De Blaeuwe Werelt toont ook een 
nieuwe lijn op- en afrollers van Dal- 
ren. Deze machines voorkomen dat 
het printproces telkens weer ge¬ 
stopt moet worden omdat een 
nieuw pak computerformulieren 
ingevoerd moet worden. 

De datasystems divisie van De Bla¬ 
euwe Werelt levert oa de Inform 
systemen voor handtekeningen ve¬ 
rificatie en toegangscontrole. 



Nieuw is het DocMan systeem voor 
documenten automatisering - het 
vastleggen van documenten, foto’s, 
tekeningen, brieven, etc. op opti¬ 
sche schijf. DocMan is geschikt 
voor gebruik op dc PC. 

Colijn Computers 

B 528 01100 - 32256 

Colijn presenteert onder andere 
het Uni-Living software pakket, 
Sherry computers en de Boardwi- 
zard. 



Uni-Living is speciaal ontwikkeld! 
voor de woninginrichting branche. 
Het biedt alle financiële en andere 
administratieve modules voor grote 
en kleine bedrijven. De Sherry 
omputerserie is uitgebreid met 
jgn 33 MHz 386 systeem. Met het 
oardwizard meetinstrument 
unnen technische storingen 
printed circuit boards 
orden opgespoord. 



| PC’s upgraden 

PC’s kunnen geen rekenkracht genoeg in huis hebben. Bezitters van 
Personal Computers worden voortdurend geconfronteerd met het 
nog sneller uit de advertenties. De 25 MHz versie is nog niet uit of 
de 33 MHz machine wordt reeds aangekondigd. Hetzelfde geldt 
voor CPUs, systeembussen en harddisks. Als je het allemaal moet 
geloven staat er drie maanden na aanschaf van een schitterende 
PC een prehistorisch prul op het bureau. 

Advertenties en sterke verhalen over data verslindende computers 
dient de serieuze PC-gebruiker altijd met een fikse korrel zout te 
nemen. Sneller betekent niet automatisch beter en de al wat oude¬ 
re PC kan nog altijd prima geschikt zijn voor de opgedragen taken. 
Maar stel nu dat de oude machine toch wat traag wordt? Gewoon 
een recenter en krachtiger exemplaar kopen is meestal slechts voor 
de beter gebudgetteerden weggelegd of betekent het verkennen van 
de tweede hands markt. Een andere mogelijkheid is het opvoeren, 
‘upgraden’ van de bestaande PC. 

Snellere CPU 

Het versnellen van de PC kan op vele manieren. Voor de hand ligt de 
keuze van een snellere CPU of het opvoeren van de kloksnel- 
heid van de bestaande microprocessor. Als voorbeeld neem ik een 
al wat bejaarde XT met Intel 8088 CPU op 4,77 of 8 MHz. In de 
radiodump zijn oscillatorkristallen te koop waarmee dat 8088- 
beestje nog tot 10 of 12 MHz opgedreven kan worden. Dat ‘opdrij¬ 
ven’ staat er niet voor niets, want de Intel 8088 werd niet voor 
dergelijke snelheden ontworpen. De kans op storingen en fouten 
neemt navenant toe en het blijft de vraag of deze problemen een 
snelheidswinst van 10 tot 30% goed maken. 

Een andere mogelijkheid is het vervangen van de XT-CPU voor een 
sneller type van bijvoorbeeld NEC (V20 voor de 8088, en V30 voor 
de 8086). Deze chip is goedkoop en inderdaad iets sneller. Weer 
blijft het de vraag of het weghalen van de chip en enkele tientjes 
voor de CPU de winst van 10 tot 20% wel rechtvaardigt. 

Van XT naar AT 

De XT ombouwen tot een AT lijkt een veelbelovend project. Die 
systeemkast, diskdrives, voeding en interfacekaarten heb je im¬ 
mers al. Daar behoeft alleen nog maar een Intel 8086 op de hoofd¬ 
kaart gedrukt te worden. Ho ho, wacht eens eventjes. Was er bij de 
AT ook niet sprake van een verbeterd technisch ontwerp? Juist ja, 
het gaat wezenlijk om een andere machine met afwijkende onder¬ 
steunende elektronica. Om in één klap van al het gezeur af te zijn 
kan de gebruiker gewoon de gehele hoofdkaart vervangen en de 
RAM chips overzetten (er kunnen extra kosten in de aanschaf van 
snellere RAM chips schuilen, maar de resultaten zijn er wel naar). 
Dan werkt de zaak meteen goed en zit er een echte 16-bits bus in 
de PC. Op computerbeurzen liggen redelijke tot spotgoedkope moe- 
derkaarten voor het oprapen. Let wel even op de fysieke afmetin¬ 
gen. Past de kaart in de oude systeemkast? 

Een andere methode is de oude 8086/88 weg te trekken, een versnel- 
lerkaart in een vrij busslot te drukken en deze met een kabeltje 
plus plug aan de CPU-drager op de hoofdkaart te koppelen. Op die 
accelerator-kaart zit een snellere 16-bits 80286 CPU die de be¬ 
nodigde rekentijd aanzienlijk verkort. Er kleven wel enkele bezwa¬ 
ren aan deze methode: 

• Buiten de versnellerkaart om blijft het systeem de oude eigen 
bus voeren. Een ex-8088 PC blijft gewoon 8-bits voor de buiten¬ 
wacht! 







* Een traag RAM doet de versneller een pas op de plaats maken. 
Dc CPU kan niet sneller rekenen dan de Von Neumann bottle¬ 
neck (= data-uitwisseling tussen CPU en RAM banken) toelaat. 

Een XT echt helemaal tot een AT verbouwen blijkt in de praktijk 
dikwijls een dure illusie te zijn. Zijn de CPU en het RAM vervan¬ 
gen, dan zijn er nog de diskdrives (360 KB in plaats van 1.2 MB), 
de XT drivecontroller, incompatible I/O- of multifunction kaarten 
en de trage XT harddisk. Tot overmaat van ramp blijkt soms ook 
de voeding te krap bemeten. 

Dan maar helemaal niet verbouwen? Een vraag die moeilijk te beant¬ 
woorden valt. De verbouwingskosten zijn voor een budget XT- 
kloon bijna net zo hoog als een nieuwe AT. Als u daarentegen over 
een nog in goede staat zijnde merk XT beschikt, kan upgraden met 
een kwaliteits accelerator wel degelijk lonen. En natuurlijk is zelf 
knutselen ook heel leuk. Met op beurzen verkregen onderdelen kan 
iedereen zonder twee linkerhanden een complete PC bouwen. 

Naar de 386 

Inmiddels zijn er ook 80386/80386SX acceleratorkaarten en losse 
hoofdkaarten verkrijgbaar. Hierbij gelden weer dezelfde bezwa¬ 
ren. De snelheidswinst kan weliswaar meer dan 200 tot 300% zijn. 
Daarvoor moet echter wel een stevige prijs betaald worden. 

De ombouw van een goed uitgeruste AT naar een 386 model kan lonen. 
De prijs van een losse hoofdkaart ligt flink lager dan die van een 
complete machine. 


33 MHz 80386 
moederboard van 
Hauppage 


Coprocessoren 

Mathematische coprocessoren zijn bedoeld om de CPU van dom 
rekenwerk te ontlasten. Bovendien rekenen deze chips hun stan¬ 
daard berekeningen aanmerkelijk sneller door dan de centrale mi¬ 
croprocessor die al zoveel aan het hoofd heeft. 

De installatie van een mathematische coprocessor helpt alleen als de 
software er ook mee kan werken. Anders heeft die extra investering 
van ettelijke honderden guldens geen zin. De behaalde snelheids¬ 
winst kan bij geschikte programmatuur hoog zijn. 

Andere upgrades 

Er zijn diverse mogelijkheden om naast het vervangen van CPU’s de 
PC op te voeren. Bijvoorbeeld: 

• De installatie van snellere drives 

• Het gebruik van een sneller RAM 

• Meer RAM in de machine zetten 

• Een snellere drivecontroller in de PC zetten 

• Een efficiënter besturingssysteem nemen 

Bij al deze upgrades zult u zich steeds weer moeten afvragen of de 
computer daarvoor geschikt is en of de kosten tegen de baten op¬ 
wegen. 



DIT IS SYSTEEM F ZES: 

Boekhouden per computer krijgt ’n 
geheel nieuwe dimensie met Systeem 
F ZES: het meest gebruikersvriendelijke 
boekhoudprogramma dat ooit werd 
ontwikkeld. Want waar u anders prak¬ 
tisch 'n heel toetsenbord nodig had 
om effektief te kunnen boekhouden, 
kunt u met Systeem F ZES volstaan met 
hooguit 3 toetsen voor de bediening 
van het programma. Kortom, iedereen 
die kan boekhouden, kan onmiddellijk 
werken met Systeem F ZES. 

Het programma is bestemd voor IBM 
PC en compatibles die werken onder 
MS-DOS 2.0 of hoger (PC-DOS), met 
3V2 of 5% inch diskettes en een intern 
geheugen van 640 K. Heeft uw systeem 
géén harddisk, kies dan voor Systeem F 
versie 5.3, voor slechts f 369,— - 


De mogelijkheden van 
Systeem F ZES. 

• debiteurenadministratie 
« crediteurenadministratie 

• grootboekadministratie 

• faktureren met vrije faktuur lay-out 

• adresetiketten vervaardigen 

• acceptgiro’s vervaardigen 

• aanmaningen vervaardigen 

• omzetoverzichten per crediteur/ 
debiteur 

• complete voorraadadministratie 

• vreemde valuta 

• zeer uitgebreide rapportage naar 
beeldscherm, printer of bestand 

• context afhankelijke hulpschermen. 


Telefonische Hot Line 
ondersteuning. 

Direkte en effektieve hulp voor 
slechts f 75,- per 60 minuten. 


Unieke ’Niet Goed, 
Geld Terug’ garantie. 


Mocht Systeem F ZES of de 5.3 versie 
tóch niet aan uw verwachtingen 
voldoen, dan krijgt u tot 6 weken na 
aanschaf direkt uw geld terug. 
Gewoon, zonder vragen of gezeur. 


r 


in gefrankeerde envelop 
sturen naar: GW Boeken, 
Haarlemmerstraat 126/b, 

1013 EX Amsterdam. U kunt natuurlijk ook 
telefonisch of per fax bestellen. 

Aank ruisen wat u wenst: 

□ Hierbij bestel ik Systeem F ZES a f 449,-* 

□ Ik wil tevens toegang tot de Systeem F 
Hotline a f 75,-*per 60 minuten. 

□ Stuurt u mij Systeem F versie 5.3 o f 369,-* 

□ Informeert u mij over de cursus 
'Boekhouden met Systeem F’. 

Formaat diskette: □ 3 ’ 2 inch □ 5 ! 4 inch 



Onderneming_ 

Uw naam_ 

Adres_ 

Postcode/Plaats_,_ 

Telefoon_ 

* Alle prijzen zijn exclusief 18,5% BTW. 

Alle bestellingen worden onder rembours 
geleverd. Administratie- en verzendkosten 
zijn voor rekening van GW Boeken. 








Een computer is eigenlijk een verzameling hardware dat hoogstens zelf naar 
de opstartroutine kan zoeken. Zonder een besturingssysteem doet de PC 
helemaal niets nuttigs. De communicatie met de gebruiker, de drives, andere 
computers, randapparatuur, het geheugenbeheer en indelen van bestanden 
zijn zonder een Operating System als MS-DOS, UNIX of OS/2 niet mogelijk. 
Practisch gezien vormt het besturingssysteem de ‘lijm’ tussen de hardware 

en de gebruiker. 

Besturingssystemen 

De lijm tussen gebruiker 

en hardware 



In de systeemkast van een PC vindt u de microprocessor, de ondersteu¬ 
nende elektronica, de interface kaarten en de drives. Aan die kast 
hangt weer de nodige randapparatuur, zoals toetsenbord, muis, prin¬ 
ter, modem en monitor plus de gebruiker die de PC wil bedienen. Om 
al die componenten nu tot één voor de gebuiker beheersbaar systeem 
te verenigen is een besturingssysteem (OS of Operating System) 
nodig. Het operating system vervult daarbij onder meer de volgende 
belangrijke functies: 


Systeem management 
programma’s met ven¬ 
sters vormen een ge¬ 
bruiksvriendelijke inter¬ 
face tussen Operating 
System en gebruiker 
(foto Buil Micral 35) 


• Het correct installeren van de hardware voor het gebruik. De 
OS-software leert de computer als het ware wat er aan elektroni¬ 
ca, drives, RAM chips, kaarten en randapparatuur binnen het sys¬ 
teem zit en wat de PC daarmee kan doen. Dikwijls wordt het OS 
hierbij ondersteund door zogenaamde drivers, kleine hulpprogro- 
gramma’s voor het aansturen/installeren van extra geheugen, 

RAM disks, modems, muizen, printers e.d. Hardware, RAM disks 
en RAM-residente programma’s die bij het opstarten geïnstalleerd 
moeten worden, staan in het configuratiebestand. Bij MS-DOS is 
dat het belangrijke file CONFIG.SYS. 

• De communicatie tussen de verschillende systeemcomponenten. 
Het besturingssysteem wordt ook wel Disk Operating System, 
(DOS) genoemd. De term ‘disk operating’ geeft al aan dat één van 
de voornaamste OS-taken het besturen van de drives is. Al het I/O- 
dataverkeer staat onder controle van dit DOS. Bij systemen als 
UNIX, XENIX en PICK is het OS van huis uit al geschikt voor net- 
werktaken. Bij MS-DOS en OS/2 is extra netwerksoftware een 
must. 

• Het besturen van allerlei randapparatuur 






• Het indelen van de bestanden (files) en (sub-) directories 

• Het bewerken van bestanden. Oa. kopiëren, wissen, verplaat¬ 
sen, overschrijven, backuppen, beveiligen, enz. 

• Het formatteren en indexeren van schijven. 

• Het creëren van een of ander gebruikersinterface. Dat deel van 
het OS dat met dc computergebruiker communiceert. 

• Boekhoudkundige taken, zoals waar informatie zich in het ge¬ 
heugen of op de schijf bevindt en het bijhouden van een systeem- 
logboek. 

• Het beheersen van de taakverdeling en taakuitvoering bin¬ 
nen het systeem. Hieronder vallen zaken als welke opdracht aan 
de beurt komt voor processortijd, het uitvoeren van meerdere ta¬ 
ken tegelijk (multi-tasking en/of het tegelijkertijd toelaten van 
meerdere gebruikers op één (multi-user) systeem. 

Behalve de hier genoemde hoofdtaken kennen de verschillende operating 
systemen nog tal van subtaken. Het zou te ver voeren om ze hier 
uitvoerig te bespreken. 



PC-MOS / 386 is één 
van de vele (minder be¬ 
kende) besturingssyste¬ 
men. Het is een multi- 
user en multi-tasking 
systeem voor 386 
machines 


Hoe zit een OS in elkaar? 

Een besturingssysteem wordt meestal onderverdeeld in het Kernei, de 
Shell, de Utilities en Gebruikers programma’s. Het Kernei vormt de 
kern van het OS die het systeem bestuurt op het niveau van de laag¬ 
ste hardwarefuncties. In feite creëert het Kernei de werkomgeving op 
hardwareniveau voor de daarboven liggende hogere delen van het OS. 
Die hogere delen Vragen’ het Kernei om bepaalde hardware taken 
voor hen uit te voeren. Tot de Kernei- taken behoren oa. het regelen 
van de input/output (I/O-functies), het geheugengebruik, drivebestu- 
ring, timing, multi-user- en multi-tasking operaties. Verder houdt het 
kernei meestal ook het systeemlogboek en (een deel van) de boekhou¬ 
ding bij. 

Daar het Kernei de werkomgeving voor de andere lagen van het OS 
schept en primair op het laagste hardwareniveau werkt, dient het 
exact voor de CPU en diens ondersteunende hardware geschreven te 
zijn. Met name de I/O-drivers voor de verschillende devices luisteren 
zeer nauw. Is het besturingssysteem flexibel, dan kan het OS door 
aanpassing van het Kernei op vele verschillende computertypen 
draaien. Daarmee wordt de software overdraagbaar van de ene com¬ 
puter naar de andere. Besturingssystemen als UNIX zijn min of meer 
overdraagbaar. MS-DOS is slecht overdraagbaar en werkt zonder veel 
kunst- en vliegwerk alleen op IBM compatible PC’s! Een aantal an¬ 
dere operatingsystemen kan echter wel een MS- DOS-omgeving emu- 
leren (= nabootsen). 

De Shell vormt een soort gebruiksvriendelijke schaal tussen de 
man/vrouw achter de computer en de moeilijke taal van het bestu¬ 
ringssysteem. In het eenvoudigste geval is er sprake van een zoge- 


Compac 

A 231 035 - 260633 

De nieuwe Seikosha 24 naalds 
printer SL-230 wordt door Compac! 
getoond. De printer is voorzien van 
een nieuw ontwikkelde printkop 
met een parallelle naald opstelling 
en heeft een printsnelheid van 277 
tekens in draft en 92 tekens in let- 
terkwaliteit over een breedte van 
maximaal 136 karakters bij 10 cpi. 



De printer heeft een programmeer¬ 
bare insteekkaart, waarop de ge¬ 
bruiker zijn persoonlijke printer in¬ 
stellingen kan opgeven. 

De Seikosha SL-230 is standaard 
voorzien van 9 verschillende 
schriftsoorten, heeft zowel een pa¬ 
rallelle als een seriële ingang en is 
uitgerust met een IBM Proprinter 
XL-24 en een Epson LQ-1050 emu¬ 
latie. De input buffer meet 64 KB 
en kan eventueel uitgebreid wor¬ 
den met 64 KB. 


Compucon 

D 720 03465 - 70484 

Compucon richt zich sterk op het 
nieuwe besturingssysteem Vmos/3, 
een multi-tasking besturingssys¬ 
teem voor de 386 processor. Vmos/3 
is een produkt van StarPath Sys¬ 
tems uit Michigan (VS) en is in 
principe volledig DOS compatible. 
Door het gebruik van virtueel ge¬ 
heugen (geheugeninhoud komt op 
de harde schijf terecht zonder dat 
de software er wat van merkt) kun¬ 
nen meerdere programma’s gelijk¬ 
tijdig actief zijn. 

Daarnaast toont Compucon, als le¬ 
verancier van de PC’s van Advan¬ 
ced Logic Research, de nieuwste 
modellen van deze leveran¬ 
cier, onder andere de Flex 
Cache 386 33 MHz ma¬ 
chine. 









■ Een betrouwbare micro die ik overal mee naartoe kan 
“ nemen, lijkt me heel handig. Stuur mij documentatie. 

I Naam:_m/v 

| Bedrijf:_ 

a Adres:--- 


Factory Overhead 
i Swipwi-' 

. BB®**»» 

. jHMf fuut 

•Ui mm 


Plaats 


Postcode 


Telefoon 


Huidig computermerk:- 

Belangrijkste toepassingen:- 

Stuur de bon in een envelop zonder postzegel naar: Tulip Computers 
Nederland B.V., Antwoordnummerl3039, 5200 VE ’s-Hertogenbosch. 

Tulip Computers, Hambakenwetering 2, 5231 DC ’s-Hertogenbosch. 


_ lUllj; v>V2iiipu o, uamuttivcu w v-ict juj, j j \ v> u-nvi tof 

I Telefoon 073-405333, telex 50316 tulip nl, fax 073-421915 


De naam voor Europese kwaliteit, 










Etap Information Techn. 

B 513 076 - 417800 

Etap laat een aantal High Resolu- 
tion monitors zien. Niet alleen on¬ 
dersteunen de A4 en A3 beeld¬ 
schermen en bijbehorende video¬ 
kaarten de meeste 

softwarepakketten op het volledige 
scherm, ook is het mogelijk dat de 
gebruiker het beeldscherm indeelt 
zoals hij/zij dat zelf verkiest. 



Met WordPerfect 5.0 bijvoorbeeld 
is het mogelijk een grafische in¬ 
druk van de pagina te krijgen op 
het A4 scherm. Bij een A3 scherm 
staat de pagina op de ene helft, ter¬ 
wijl op de andere helft de tekst ge¬ 
redigeerd kan worden. Ook bij MS- 
Word 5.0 is het mogelijk previews 
te krijgen, exact zoals het afge¬ 
drukt wordt. 

Voor AutoCAD 10.0 levert Etap 
een speciale driver voor de Pictor 
kleurenbeeldschermen. 

De beeldschermen hebben een 
hoge beeldfrequentie (75 Hz non- 
interlaced) en gebruiken hoog-lu- 
minante witte fosfor en positieve 
video. Er kunnen 51, 66 of 72 re¬ 
gels tekst weergegeven worden. 
Hoe kleiner het aantal regels, hoe 
groter de letters en dus hoe hoger 
het leescomfort. 

Arcade O. Harris 


W 450 03480- 17590 

Deze specialist op CAD gebied de¬ 
monstreert op de beurs de nieuws¬ 
te versie 1.4 van het Arkey/Arcos 
2D/3D CAD pakket. Ook wordt 
voor dit pakket een facility mana¬ 
gement faciliteit gepresenteerd. 
Arkey/Arcos is een op de bouwsec¬ 
tor gericht ontwerp- en produk- 
tiepakket en wordt gebruikt 
door zowel architecten, meu¬ 
bel- en sanitair ontwer¬ 
pers als installatiebe¬ 
drijven. 

De laatste versie 



naamd Command Line-interface. De naam zegt het al; de gebrui¬ 
ker/ster typt achter een bepaald teken (prompt in de vorm van een >, 
$, % e.d.) een opdracht op de commandoregel in. Na het geven van 
een Enter/Return wordt deze opdracht uitgevoerd. Bijvoorbeeld bij 
MS-DOS: COPY A:*.* C: kopieert de inhoud van diskette A naar de 
harde schijf C. Andere typen interfaces zijn: 

• Het menu. Er verschijnt een reeks keuzemogelijkheden op het 
scherm die via de cursortoetsen, met de muis of via het intypen 
van een letter geactiveerd kunnen worden. 

• Een WIMP omgeving. Deze gebruikersomgeving bestaat uit ven¬ 
sters (windows), Ikonen (symbolen voor opdrachten en files), Muis- 
besturing en trekmenu’s (pull-down menu’s). Met de muis kan de 
gebruiker alle gewenste opdrachten geven, de schijfinhoud en 
draaiende programma’s bekijken en allerlei handige schermphulp- 
jes activeren. Bekende schermhulpjes zijn oa. een rekenmachine 
(calculator), notitieblokje (notepad) en agenda. Bekende WIMP om¬ 
gevingen zijn bijvoorbeeld, MS-Windows voor MS-DOS, de Work- 
bench voor de Amiga en OSF Motiv voor UNIX. 

De Utilities zijn miniprogramma’s die standaardopdrachten uitvoeren. 
Bijvoorbeeld files kopiëren, schijven formatteren, het beeldscherm af¬ 
drukken, backups maken, een inhoudsopgave op de monitor zetten, 
bestanden editen, het uitvoeren van diverse netwerk- en beveiligings- 
taken. Hoe recenter de versie van het besturingssysteem hoe meer en 
geavanceerder zijn de meegeleverde Utilities. 

De gebruiker kan ook zelf OS programma’s schrijven. Daar de boven 
op het Kernei liggende OS-lagen gebruik maken van een of andere 
programmeertaal, kunt u zelf opdrachten aan elkaar koppelen. Mo¬ 
gelijk zijn oa. batches, macro’s, Utilities, scripts en complete toepas¬ 
singsprogramma’s . 

De communicatie tussen de hogere lagen en het Kernei verloopt via de 
system calls en de daaropvolgende returns. De draaiende software 
roept via het OS een bepaalde Kernei functie aan en na uitvoering of 
verhindering daarvan geeft het Kernei een antwoord over de stand 
van zaken. 

De hier geschetste werking van een OS is uiteraard zeer globaal en kan 
per besturingssysteem sterk verschillen. Het indelingsprincipe geldt 
echter wel universeel. 

Files en directories 

Bestanden of files zijn de vorm waarin de software en de bijbehorende 
gegevens (data) worden opgeslagen. Elk besturingssysteem gebruikt 
daarvoor een bepaald eigen format. Dit format bepaalt hoe de data 
weggeschreven en weer ingeschreven kunnen worden. Bij uitwisse¬ 
ling van gegevens tussen twee besturingssystemen kunnen proble¬ 
men ontstaan doordat het ene de files van het andere systeem of zelfs 
de gehele diskette niet kan lezen. 

Op een schijf gaan al gauw vele honderden files. Om het overzicht te 
kunnen behouden worden die bestanden in hoofdstukken verdeeld. 
Men noemt de grote hoofdstukken directories en hun paragrafen de 
subdirectories. De meeste systemen gebruiken een boomstructuur. 
Bovenaan die boomstructuur staat de root-directory met de essen¬ 
tiële gegevens voor het opstarten en wie waar op het systeem te keer 
mag gaan. Daaronder kommen de verschillende directories en subdi¬ 
rectories. Voor het lezen van een bepaald bestand zal het OS eerst de 
desbetreffende directory en/of subdirectory moeten openen. Anders 
kan de computer er niet bij. 

MS-DOS 

Het meest bekende OS in de PC-wereld is MicroSoft DOS (MS-DOS), 
in de IBM-versie PC-DOS. Doordat er zoveel software voor MS-DOS 
bestaat en de daarvoor benodigde hardware relatief goedkoop is, heeft 
het gebruik een ongekende vlucht genomen. Achteraf bezien is dit 
DOS een tamelijk achterlijk OS. De beperkingen zitten hem onder¬ 
meer in: 







• Het beperkte RAM gebruik. Zonder extra drivers kunnen de oude¬ 
re versies met niet meer dan 640 KB uit de voeten. Andere OS 
kunnen vele MegaBytes aan vrij RAM hanteren 

• De oudere DOS-versies kunnen zonder diskmanagers met geen gro¬ 
tere harddisks dan 32 MB werken 

• Op netwerken en multi-tasking werd niet gerekend, terwijl de 
nieuwe 386/486 PC-generatie hiervoor nu juist krachtige mogelijk¬ 
heden biedt 

• De programmeermogelijkheden zijn relatief beperkt 

• MS- en PC-DOS zijn primair voor de verouderde 8086/8088 CPU 
geschreven 

Natuurlijk is achteraf klagen altijd gemakkelijk. Andere gebruiksvoor¬ 
werpen zoals auto’s hebben ook een complete evolutie doorgemaakt. 
En wie rijdt er nu nog in een DOS l.X-versie T-Ford? Bovendien 
bedienen de huidige 3.X en 4.X- versies de gewone stand alone PC-ge- 
bruiker naar volle tevredenheid. En de lage gebruikskosten maken 
immers veel goed. Alleen de power-, multi-tasking- en netwerk-user 
ontdekt al gauw de beperkingen. 

De ontwikkelingen staan ook bij MS-DOS natuurlijk niet stil. Men wil 
niet meer wachten totdat het document op de printer is uitgedraaid. 
Verwijs de printercontrole naar de achtergrond zodat je in de tussen¬ 
tijd met iets anders door kunt werken. Kortom, multi-tasking, waar¬ 
bij meerdere programma’s tegelijk op één machine kunnen draaien. 

Op een 80386 PC is multi-tasking goed te doen. Met behulp van een 
listige truc wordt die ene Intel 80386 of 80486 in tal van virtuele 8086 
microprocessoren opgedeeld. Elk draaiend programma krijgt een ei¬ 
gen werkomgeving (RAM plus virtuele 8086) toegewezen en denkt dat 
hij het koninkrijk alleen heeft. In de praktijk dient de software echter 
wel op zijn CPU-beurt te wachten. Dankzij de snelheid van de 386/486 
CPU met hardware en de goede timing van de multi-tasking software 
zijn de wachttijden bij twee tot zes programma’s gering en lopen de 
systeemprestaties niet al te veel terug. Voorbeelden van multi-tas¬ 
king software zijn oa. Windows 386, DOS 386, VM 386, DESQ 386 en 
PC-MOS. 

Netwerken en multi-user-gebruik leven bij de gratie van additionele 
software. Dankzij de komst van zware PC’s (snelle CPU’s, groter ge¬ 
heugen en harddisk capaciteit) en LAN-kaarten met bijbehorende 
software, kunnen nu redelijk snelle PC-netwerken gecreëerd worden. 
De software, bijvoorbeeld Novell of 3COM, voorziet in de benodigde 
extra drivers. 

OS/2 

Het oorspronkelijk voor de IBM PS/2 lijn en compatible AT’s bedoelde 
Operating System/2 (OS/2) mikt op de power-user op de stand-alone 
PC. De sterke punten zijn oa.: 

• Multi-tasking 

• Snelle interproces communicatie 

• Een geïntegreerde WIMP omgeving in de vorm van de Presen- 
tation Manager 

• Een vrij adresseerbaar RAM van 16 MB 

• Geen 32 MB harddisk begrenzing meer 

• Meer geënt op de modernere CPU (80286 en 80386) 

Aanvankelijk deed OS/2 weinig. De opeenvolgende OS-versies kwamen 

te laat uit, waren incompleet en duur. OS/2 compatible programma¬ 
tuur was nauwelijks te krijgen en de benodigde extra hardware uit¬ 
breidingen (4 MB RAM) waren duur. Inmiddels zijn de prijzen ge¬ 
daald, de OS/2-versies compleet, kosten de RAM chips minder en 
bieden de nieuwe OS/2 versies van Paradox, R-Base, Q&A en andere 
DOS virtuozen nu ongekende mogelijkheden op de stand-alone PC. 
Zij die primair een multi-user systeem zoeken, kunnen echter beter 
naar een ander OS uitkijken. 

UNIX / XENIX 

Vaak wordt de indruk gewekt dat UNIX iets geheel nieuws is of een 



1.4 heeft een aantal nieuwe teken¬ 
en ontwerpfuncties erbij gekregen. 
De nieuwe facility management 
mogelijkheid, het beheer en onder¬ 
houd van gebouwen, gekoppeld 


aan CAD biedt de mogelijkheid om 
met CAD opgebouwde tekeningen 
te gebruiken als basis voor beheer 
en onderhoud. 


Infotheek Systems 

E 312 071 - 256356 

Behalve ontbijtseminars zal op de 
stand van Infotheek een drietal 
thema’s centraal staan: netwerken 
en datacommunicatie, desktop pu- 
blishing en desktop presentations, 
computerdienstverlening. 

De bezoeker kan kennismaken met 
de mogelijkheden en werking van 
verschillende netwerkconfigura- 
ties. 

Op communicatiegebied is het 
nieuwtje de J&L Chatterbox. Bij 
steeds meer bedrijven wordt het 
gangbaar dat werknemers, klan¬ 
ten e.d. in kunnen bellen op de be- 
drijfscomputer. Om inbellers niet 



te frusteren door bezette lijnen 
dient de Chatterbox. Hiermee kun¬ 
nen maximaal 32 inbelstations in 
een behuizing op te nemen. 
‘Higgins’ van Conetic Systems is 
netwerksoftware die is opgezet 
rondom een relationele databa¬ 
se en die een grote hoeveel¬ 
heid gegevens overzichte 
lijk beschikbaar houdt 
voor een brede groep 
gebruikers. Higgins 






kent diverse modules, oa voor het 
bijhouden van agenda’s, klanten¬ 
bestanden, archiveren, elektroni¬ 
sche post, etc. 


Intra Electronics 

D 707 040 - 836455 

Intra Electronics levert vooral pro- 
dukten op het gebied van de com¬ 
puter periferie, subsystemen en 
elektronische componenten. Op de 
beurs presenteert het bedrijf oa 
een Rewritable optische disk drive 
van Ricoh, met een opslagcapaci¬ 
teit van 600 MB. De 5.25" drive is 
uitgerust met een SCSI interface 
en is compatible met de Ricoh 
WORM. 

Nieuwe harddisk drives zijn er van 
verschillende fabrikanten. De 
nieuwe Miniscribe 9780 harddisk 
drive heeft een capaciteit van maar 
liefst 676 MB. Deze drive heeft de 
‘volle hoogte’ en beschikt over 8 
schijven en 15 koppen. Intra geeft 



voor deze drive op, dat de gemid¬ 
delde tijd tot het optreden van een 
fout (MTBF) 50.000 uur is. De 9780 
kan zowel volgens de ESDI als de 
SCSI techniek werken, met een 
data-overdrachtssnelheid van 15 
Mbit/sec. De Miniscribe lijn loop 
van 20 MB tot 676 MB modellen. 
Van C._Itoh zijn er de 3,5" hard¬ 
disk drives. Deze zijn vooral be¬ 
doeld voor laptops en portables. 
Floppy disk drives komen van Y-E 
Data. 

Van het Duitse merk Infosys zijn er 
geheugen uitbreidingskaarten, 
batterijgestuurde RAM-disk kaar¬ 
ten, videokaarten etc. Ook laat In¬ 
tra Electronics een serie combina- 
tiekaarten zien, bijvoorbeeld een 
kaart met geheugen uitbreiding 
plus parallelle en seriële poort en 

EGA. 



nieuwe standaard is geworden. De waarheid is echter dat het om een 
‘oude rakker’ uit de zeventiger jaren gaat, die men de laatste tijd 
probeert op te krikken en tot universele standaard te verheffen. 

In tegenstelling tot MS- en PC-DOS is deze old timer qua specificaties 
nog altijd indrukwekkend. Multi-tasking, multi-user, uitgebreide 
communicatie mogelijkheden, interne security, vele honderden stan¬ 
daard Utilities, uitgekiend onbeperkt RAM gebruik, besturing van 
zeer grote harddisks, interproces Communications, tegenwoordig ook 
een WIMP shell, programmeren in de taal C, de mogelijkheid tot 
MS-DOS emulatie in afzonderlijk draaiende processen, een prima fi- 
lestructuur en een groot aantal tools (software gereedschappen) bie¬ 
den vrijwel alles wat de gebruiker begeert. Doe daarbij nog een schat 
aan software, gebruikers ervaring, wereldwijd gebruik en een hoge 
mate van overdraagbaarheid van de programmatuur en er ontstaat 
een zeer krachtig en veelzijdig OS. 


Met DOS Windows 
biedt het Sun 386i 
Workstation een brug 
tussen Unix en DOS. 
Meerdere DOS pro¬ 
gramma’s kunnen tege¬ 
lijkertijd in verschillen¬ 
de vensters draaien. 


Toch gebruikt nog niet iedereen UNIX. Dat vindt zijn oorsprong in de 
volgende redenen: 

• UNIX is domweg te duur voor de kleine gebruiker. Wie het alle¬ 
maal niet nodig heeft betaalt zich ten onrechte blauw aan termin¬ 
als, fïleservers, het OS zelf en de software. 

• Is nog niet zo’n echte standaard als het lijkt. Er komt steeds 
meer uniformiteit. Toch blijven er wel degelijk compatibiliteitsver- 
schillen. 

• Sommige software is (nog) niet onder UNIX verkrijgbaar 

• Een aantal bedrijven heeft al te veel in MS-DOS geïnvesteerd. 

De verwachtingen zijn dat UNIX een flink stuk koek van de zakelijk 

markt voor zich zal gaan opeisen. Een belangrijke implementatie lijk 
UNIX op RISC machines te worden. Enkele leveranciers zijn hier al 
tamelijk ver mee. Of UNIX ook voor de kleinere gebruiker interessant 
gaat worden zal de tijd ons leren. 

Een computer zonder OS is als een ijscoman zonder ijskarretje. Er ge¬ 
beurt, behalve het roepen om het karretje, niets. Voeg een besturings¬ 
systeem toe en de gebruiker kan de computer opdrachten geven, toe- 
passingssoftware laten draaien, met andere computers communice¬ 
ren en de randapparatuur bedienen. Welk operating systeem precies 
bij u past hangt van de hardware en het toekomstig gebruik af. 
MS/PC-DOS voldoen al of niet met uitbreidingen nog altijd prima 
voor de kleine gebruiker. De power-user en multi-tasker kan eens 
naar OS/2 kijken hoewel deze laatste ook met de genoemde DOS-ex- 
tensies uit de voeten kan. Voor de grotere zakelijke markt is UNIX 
duidelijk in opkomst en zal wellicht een nieuwe serieuze software 
standaard worden. 






Het computergeheugen wordt verdeeld in een intern en extern geheugen. 
Kenmerkend voor het interne geheugen is de data opslag in chips. Dit in 
tegenstelling tot het externe geheugen, dat gebruik maakt van magnetische 

of optische informatiedragers op schijf of tape. 


Drives 



De Tandon 386/33 heeft een geïnte¬ 
greerde ‘Personal Data Pac’ 
verwijderbare harddisk 


Het externe geheugen van 

uw computer 

Bij het opstarten van de PC bevat de computer slechts een minimale 
hoeveelheid informatie. In het Read Only Memory (ROM - perma¬ 
nent in geheugenchips aanwezige informatie) staat slechts hoe de 
machine een aantal basistesten moet uitvoeren en waar de PC naar 
de opstartroutines en het operatingsysteem moet zoeken. Is de PC 
klaar met checken, dan wordt via een bootroutine informatie vanaf 
de diskette of harddisk naar het Random Access Memory geladen 
(RAM - tijdelijk in chipbanken opgeslagen informatie die verdwijnt 
na wissen of het uitschakelen van de stroom). Deze informatie bestaat 
uit het DOS (of ander besturingssysteem), het gebruikersinterface of 
een menu. Slechts bij een klein aantal PC’s, zoals de Amiga en Atari, 
is het besturingssysteem reeds in het ROM ingebakken en behoeft dat 
bij de start niet van de schijf ingeladen te worden. 

Het RAM bevat informatie in vluchtige staat. Onder dat ‘vluchtig’ 
dient u ‘tijdelijk’te verstaan. De RAM-data worden voortdurend aan¬ 
gepast, ververst en van/naar de schijven (diskettes, harddisks) gela¬ 
den. Wordt de stroom uitgeschakeld dan is het RAM leeg en gaat alle 
daarin opgeslagen informatie verloren. Een bekende beginnersfout 
die al menige krachtterm heeft ontlokt. Zeg niet dat het u nooit is/zal 
overkomen. 

De enige manier om de programmatuur en gegevens in het RAM te 
bewaren is ze naar een magnetische of optische informatiedrager weg 
te schrijven. Elke PC wordt standaard met minimaal één diskdrive 
geleverd. In die diskdrives passen magnetische schijfjes, de diskettes, 
waarop de programma’s en bijbehorende data staan. Dankzij deze 
diskdrives is het mogelijk om software van de ene PC naar de andere 
over te bregen en programma’s en data los van de computer te bewa¬ 
ren. Behalve de diskdrives omvat het drive repertoire voor de PC’s 
nog de harddisks, tapestreamers en optische drives. We zullen ze stuk 
voor stuk onder de loupe nemen. 



Diskdrives 

Kenmerkend voor de diskdrive is dat er uitneembare diskettes, ‘flop¬ 
pies’, in zitten. Dat floppy slaat op de flexibele aard van het magneet- 
schijfje dat in een plastic hoesje, de jacket, zit. Het hoesje dient om 
de schijf tegen stof, vuil en fysieke schade te beschermen. In het mid¬ 
den zit een gat voor de aandrijving door de drive en aan de voorzijde 
een al of niet (met een weg te schuiven afdekplaatje) bedekte 
lees/schrijfsleuf. 

De drivemotor zorgt er voor dat de diskette een x-aantal honderd toeren 
per minuut maakt. Standaard is ongeveer 300 per minuut, maar er 
zijn diskdrives die het wat langzamer of juist veel sneller doen. Dank¬ 
zij die hoge rotatiesnelheid kunnen de over de diskette heenscherende 





lees/schrijfkoppen in korte tijd een groot aantal datasporen, tracks, 
en hun sectoren bewerken. De term leesschrijfkop geeft al aan dat 
de koppen zowel data van de diskette naar het RAM kunnen lezen als 
van het RAM naar de schijf kunnen wegschrijven. 

Alvorens een diskette bruikbaar is dient deze geformatteerd te worden. 
Formatteren is niets anders dan een magnetische indeling en boek¬ 
houding (index) maken. De diskette wordt verdeeld in een x-aantal 
tracks en een index-spoor (track 0) dat bijhoudt waar de weggeschre¬ 
ven software en data te vinden zijn. Het besturingssysteem beweegt 
de koppenarm aan de hand van de indexgegevens naar de juiste 
lees/schrijfplaats. 


Shugart’s SA200 
5.25-inch Miniflop- 
py™ disk drive 

Om een diskdrive in de computer te installeren dient u met de volgende 
punten rekening te houden: 

• De besturing en communicatie met de drive verloopt via een 
controllerkaart. Deze controller verzorgt het stoppen/starten van 
de drive, de stuursignalen en de in/output van data. Uit de control¬ 
lerkaart komt een linkkabel met één of meerdere connectoren voor 
aansluiting op de bus aan de achterzijde van de drive. Het behoeft 
geen betoog dat controller en drive met elkaar compatibel dienen 
te zijn. Let hier op bij het gebruik van verschillende typen diskdri¬ 
ves door elkaar! Een PC XT kan bijvoorbeeld zonder upgrade geen 
AT diskdrives aansturen. 

• Het besturingssysteem (OS) dient met het drivetype te kunnen 
werken. Met name bij de oudere DOS-typen wil het werken met de 
nieuwere 3.5 inch drives wel eens problemen geven. 

• Gebruik het juiste type I/O lintkabel 

• Is er ruimte in het drive chassis voor de nieuwe diskdrives? Zo 
ja, beschikt u over de goede schroefjes, geleiderails en voorfrontjes? 

• Is er nog een voedingskabeltje voor de diskdrive vrij? 

• Last but not least dient uw PC ‘te weten’ dat er een extra drive 
in de machine zit. Was er bijvoorbeeld eerst alleen sprake van een 
diskettestation A dan zit er nu ook een B in. Dit zal aan het Se¬ 
tup programma of via dipswitches (sommige oude XT’s) gemeld 
moeten worden. 

Jammer genoeg is er weinig uniformiteit bij de PC diskdrives. Er wordt 
onderscheid gemaakt bij: 

• De fysieke afmetingen van de drive. Gangbaar zijn de maten 3.5 
en 5.25 inch. Een diskettestation werkt alleen met de schijven die 
daar in passen. Bij de montage in de computer zult u met de ma¬ 
ten van de diskdrives en de ruimtelijke afmetingen van het drive 
chassis rekening dienen te houden. 

• Het dataformat. De klassieke 5.25 inch PC diskdrive kon 360 
KiloByte (KB) aan data bevatten. Enkele jaren later kwam daar 
nog een 720 KB versie bij die het niet echt gemaakt heeft. Wel in¬ 
gang vond het 1.2 MB AT-model die gezien de grote opslagcapaci¬ 
teit ideaal is voor grotere programma’s, datafïles en het backuppen 
van bestanden. Nieuwer en snel in opmars zijn de kleinere 3.5 
inch drives in de formats 720/800 KB en 1.44 MB. De bijbehoren¬ 
de diskettes zitten in een hardplastic jasje en de lees/schrijfsleuf 
wordt door een, via een magneet weg te schuiven, afdekplaatje ge¬ 
sloten. Trek dit type diskettes nooit uit een draaiende drive om 



Laser Computer Europe 

A 241 071 - 410801 

Laser Europe siert zijn stand met 
een serie nieuwe computers, van 
XT’s tot 386 Towers. 

De XT/SL is voorzien van een 10 
MHz 8086-1 processor, 640 KB 
RAM, een seriële en een parallelle 
poort, vier slots en twee 3,5" fïxed 
disk units. Deze XT kan oa ge¬ 
bruikt worden als diskloos station 
voor netwerktoepassingen. 

De Laser AT/2 en de AT/3 zijn 
80286 computers met een resp. 12 
en 16 MHz processors. Het RAM is 
standaard 640 KB en is op het moe¬ 
derbord uit te breiden tot 3072 KB 
en met kaarten tot 16 MB. In de 
AT/2 zit een fïxed disk unit en een 
20 MB harddisk en in de AT/3 een 
40 MB disk. De AT’s worden gele¬ 
verd met een 14" flatscreen moni¬ 
tor, MD-DOS 4.01, GW-Basic, PC 
Tools 5.* en een printerkabel. Prij¬ 
zen variëren van ƒ 3899,- tot 
ƒ 4650,- ex. BTW. 

De 386 serie bestaat uit de Laser 
386 SX, de 386 Desktop en de 386 
Tower. De SX is voorzien van de 
386 32-16 bits 16 MHz processor, 1 
MB RAM dat op het moederbord is 
uit te breiden tot 8 MB, zeven AT 
slots, een diskdrive en een 40 MB 
harddisk. 

De Desktop en Tower modellen van 
de 386 hebben een 25 MHz proces¬ 
sor, zero waitstate en met een ca- 
che van 64 KB. Het 2 MB geheugen 
is uit te breiden tot 10 MB. De hard 
disks hebben een capaciteit van 40 
tot 65 MB. Met monitor, keyboard 
en diverse software bedragen de 
prijzen van ƒ 8.999,- voor de 
Desktop tot 9.899,- voor de Tower, 
ex. BTW. 



Micro Scope 

W 460 010 - 4563799 

Micro Scope lanceert op de beurs 
‘Anh Professional’ voor de grafische 
gebruiksomgeving van MS-Wind¬ 
ows. Het is de high-end versie van 
het Arm tekstverwerkingspakket 
van Samna Corp. De professionele 
versie biedt veel extra functies, 
waaronder een thesaurus, teken¬ 
programma, mail-merge, voetno 
ten, macro’s en tabelverwer- 
king met spreadsheet func¬ 
ties. De tabelgegevens kun 
nen in grafieken worden 
omgezet. Via een in- 
en uitvoer functie 




kunnen andere aan MS-Windows 
gekoppelde applicaties in Ami' Pro¬ 
fessional worden gewijzigd. De En¬ 
gelstalige versie verschijnt in okto¬ 
ber, de Nederlandstalige in novem¬ 
ber. 



Andere Windows applicaties die 
Micro Scope toont zijn Aml (de ge¬ 
wone versie), ComfoWare, The 
SQL System en Clip & Connect. 

Olivetti Nederland 

D 7 14 071 - 319931 

Olivetti toont een interessante ont¬ 
wikkeling afkomstig van AT&T, 
met de naam Premises Distribu- 
tion System. Dit PDS is de infra¬ 
structuur voor alle typen commu¬ 
nicatie in gebouwen of gebouwen¬ 
complexen. PDS kan zowel analoge 
als digitale spraak, dataoverdracht 
(300 bps tot 200 Mbps), beelden 
van fax, terminals of plotters, vi¬ 
deobeelden en sensorsignalen ver¬ 
werken. PDS is een totaalsysteem, 
dat onafhankelijk van protocollen 
is en slechts een klein paneel nodig 
heeft voor de administratie van het 
systeem. De bekabeling is gestan¬ 
daardiseerd evenals de aansluitin¬ 
gen. Daardoor is het verhuizen van 
apparatuur erg makkelijk en hoeft 
er alleen maar een andere verbin¬ 
ding gelegd te worden op het admi- 
nistratiepaneel. 


Ormas 

Z 466 03403 ■ 90911 

Affinity is een geïntegreerd pakket 
voor kantoorautomatisering dat 
zowel onder DOS als Unix draait. 
Het is een modulair systeem dat 
via een Ethernet koppeling kan 
zorgen voor multi-user mogelijk¬ 
heden over verschillende typen 
computers. Ormas laat ook 
een nieuw pakket zien 
voor de groothandel, 
dat, waarschijnlijk 
met verwijzing 



schade aan de schijf en drive te voorkomen. 

Behalve de hier genoemde diskdrivetypen komen er langzaam steeds 
meer high speed en high capacity drives bij. Deze diskdrives met 
bijbehorende speciale floppies gaan de data opslagcapaciteit van een 
kleine harddisk evenaren. Een probleem is hun speciale format, dat 
alleen door dat ene specifieke drivetype gelezen kan worden. 

Diskettes plaatst u altijd met de lees/schrijfsleuf naar voren en het label 
naar boven in de drive. Bij de 5.25 inch drives dient de gebruiker de 
diskette met het handeltje te ver-/ontgrendelen. Een 3.5 inch model 
vergrendelt zich vanzelf. Het ongrendelen gebeurt door bij stilstaan¬ 
de drive op het kleine ejectknopje te drukken. 


Harddisks 

Tegenwoordig worden steeds meer PC’s met een vaste schijf of harddisk 
verkocht. Dat ‘hard’ slaat op het feit dat deze drives magnetisch ge¬ 
coate metalen platen in plaats van flexibele plastic folies gebruiken. 
Een harde metalen plaat kan veel sneller draaien dan een flexibele. 
De lees/schrijfkop kan dus per tijdseenheid meer data inlezen of weg¬ 
schrijven dan bij een diskdrive. Snelheid is één van de belangrijkste 
redenen om voor een harddisk te kiezen. 

De tweede belangrijke reden is de zeer grote data opslagcapaciteit. 
Voor circa ƒ 1000,- koopt u al een 40 MB model en daar gaan zo’n 112 
diskettes van 360 KB op. Een dergelijk grote opslagcapaciteit maakt 
het mogelijk om software en de bijbehorende databestanden op één 
en hetzelfde medium te gebruiken. Dat spaart veel tijd en lastig ge¬ 
wissel met diskettes. 



ST296N van Seagate biedt een opslagruimte van 84 MB. 
De toegangstijd bedraagt 28 millisec. 


Ook bij de aansluiting van een harddisk dient u weer rekening te houden 
met de bij de diskdrives genoemde installatie criteria. Daar komen 
echter nog drie punten bij: 

• De harddisk moet qua snelheid bij uw PC passen. Met het steeds 
sneller worden van de microprocessoren kan een harde schijf met 
te trage lees/schrijftijden het gehele systeem verlammen. Kies 
daarom bij een AT of 386/486 machine voor een drive met een ac- 
cestijd van minimaal 40 millisec. en liever nog 28 ms of minder. 

• Het gebruikte besturingssysteem. Oudere MS-DOS versies (t/m 
3.3) hebben moeite met een opslagcapaciteit van meer dan 32 MB. 
Dan zijn er extra drivers nodig om toch de volle capaciteit te kun¬ 
nen benutten of een 40 MB drive C gewoon in een 20 MB C en 20 
MB D op te delen. UNIX/XENIX, OS/2 , DOS 4.X en een aantal an¬ 
dere besturingssystemen kunnen rustig vele honderden MB’s aan¬ 
spreken. 

• Indien de leverancier de klus niet voor u opknapt zult u de harde 
schijf zelf moeten formatteren. Dit proces staat nauwkeurig be¬ 
schreven in het DOS manual en hopelijk ook in de bij de disk gele- 






verde gebruiksaanwijzing. Bij nauwkeurig werken kan iedereen 
dit zelf doen, zij het dat het bij 40 MB en meer wel een uurtje kan 
duren. ... . 

Tegenwoordig komen er steeds meer harddisks die niet vast in de PC 
geïnstalleerd hoeven worden, maar uitneembaar zijn. Er zijn ruwweg 
twee verschillende typen: 

• In zijn geheel uitneembare harddisks. Er zijn harddisks die in 
een speciaal drive chassis gaan en een aantal leveranciers brengt 
sledes voor alle gangbare drivetypen uit. Meestal is vergrendeling 
van de disk met een sleuteltje of codewoord mogelijk. 

• Harddisks waarbij alleen de schijven zelf worden uitgenomen. 

Uit het oogpunt van beveiliging is de uitneembare harddisk een belang¬ 
rijke ontwikkeling. De gebruiker kan nu de harde schijf uitnemen en 
in de safe opbergen. Verder zijn er nog de draagbare harddisks. 
Meestal gaat het om ‘bomvrije’ types die een ruw zakenreisje weten 
te overleven. 

Als laatste harddisktype de hardcard. Bij een hardcard zitten de con¬ 
troller en harddiskdrive op dezelfde kaart. Steek de kaart in een vrij 
PC-slot, formatteer, draai de setup en de harddisk werkt. Geen ge¬ 
knoei met kabeltjes meer en het bespaart driveruimte. Een nadeel is 
wel dat hardcards doorgaans iets trager zijn dan de conventionele 
losse harddisks met controller. 

Dankzij de sterk gedaalde prijzen, toenemende snelheid en opslagcapa¬ 
citeit in MegaBytes is de harddisk ook bij de kleine gebruiker populair 
geworden. Voor de PC, Amiga en Atari kost een goed 20 MB model 
minder dan ƒ 1.000,-. Pas op met bodemprijs PC-typen, want die zijn 
meestal alleen voor de XT bedoeld. 


Tapestreamers 

De tapedrive of tapestreamer dankt een groot deel van zijn populariteit 
aan de niet-uitneembare harddisk. Backuppen naar floppies is een 
tijdrovend en diskjockey-achtig karwei dat voortdurend toezicht no¬ 
dig heeft. Met een tapedrive voor uitneembare datacartridges gaat 
dat allemaal veel comfortabeler en sneller. 

Een tapestreamer is in feite niets anders dan een high speed tapedrive. 
Een controllerkaart in de PC en de meegeleverde backup software 
zorgen voor een perfecte overschrijving van de harddisk data naar de 
tapecartridge. Met deze datacartridge in de safe bent u gedekt tegen 
ongevallen en gebruikersfouten op de harde schijf. 

Behalve een echte tapestreamer is het ook mogelijk om via een speciale 
controllerkaart de videorecorder als backup- medium te gebruiken. 
Wellicht trager, maar ook aanzienlijk goedkoper wat de cartridges 
betreft. 

Tapestreamers zijn de laatste tijd flink in prijs gedaald. Voor rond de ƒ 
1.000,- koop je tegenwoordig al een 40 MB inbouwmodel. Sommige 
PC’s worden zelfs al standaard met tapestreamer geleverd. 

Behalve tapestreamers zijn er ook nog zogenaamde tapedrives te koop. 
Tapedrives worden primair als data- en niet als backupdrive ge¬ 
bruikt. Qua prestaties scoren deze drives tussen de diskdrives en de 
harddisk. 

Optische drives 

De toekomst is volgens insiders aan de laserdisk. Een glimmend, door 
een laserstraal uit te lezen CD-schijfje kan een complete encyclopedie 
aan informatie bevatten. De opslagcapaciteit varieert van 650 MB tot 
vele GigaBytes. Behalve gewone programmatuur en datafiles passen 
op deze computer-CD’s ook gedetailleerde grafische beelden, foto’s, 
animaties, life video, muziek, gesproken commentaar, geluidseffecten 
en interactieve lesprogrammatuur. 

Voor het afspelen van deze CD-ROM, CDI, CDV en wat men nog meer 
aan optische disks bedacht heeft, zijn een speciale drive en controller 
nodig. De kosten daarvan zijn vooralsnog hoog. Andere tijdelijke be¬ 
zwaren zijn: 

• De relatieve traagheid van de drives 


naar 1992, Eurohandel heet. 

Van Sharp zijn er diverse nieuwe 
produkten te zien, waarvan wij 
slechts de drie draagbare compu¬ 
ters (2 XT’s en een AT) en de ‘per¬ 
soonlijke databank’ IQ-7000 willen 
noemen. Dit laatste ‘rekenma¬ 
chientje met computercapaciteit’ 



kan via een seriële verbinding 
naadloos samenwerken met een 
PC. Tenslotte van Sharp een kleu¬ 
renscanner voor koppeling aan de 
PC. De X-300 haalt een resolutie 
van 300 dpi en kan 260.000 kleur¬ 
nuances in 256 gradaties verwer¬ 
ken. 

Het merk MDS levert via Ormas 
ook een noviteit: de MDS 3065 la¬ 
serprinter geschikt voor een aantal 
grotere computers zoals IBM 
mainframes. 


PC Choice 

A 244a 020 - 6626288 

PC Choice heeft aan zijn produk- 
tenreeks een non-dedicated print- 
server utility toegevoegd. Met 
Print+ voor 3Com-LAN’s wordt het 
mogelijk om printers op lokale 
werkstations aan te sluiten, zoda¬ 
nig dat elke gebruiker deze printer 
kan gebruiken. De utility onder¬ 
steunt 3+ en 3+Open en is daarin 
volledig geïntegreerd. Ook onder¬ 
steunt het alle DOS, BIOS en 
3Com MS/REDIR commando’s. 








Positronika 

~241a 040 - 416355 

Deze grote distributeur heeft een 
hele reeks nieuwe produkten, som¬ 
mige al eerder aangekondigd, an¬ 
dere echt nieuw (zoals het wel va¬ 
ker gaat met noviteiten). Wat be¬ 
treft drives e.d. zijn de Tecmar 
Helical-Scan 2200 en de Plus Im- 
pulse spectaculair. De Helical-Scan 
is een externe SCSI tapedrive met 
een opslagcapaciteit van 2,2 Giga- 
byte. De Plus Impulse is een modu¬ 
lair harddiskconcept, met modules 
van 40 of 80 MB waarvan er een 
aantal aan elkaar te koppelen is tot 
een capaciteit van 22,6 Gigabyte. 
De drive heeft een toegangstijd van 
12 miliseconde en een data-over- 
dracht van 4 Mb/sec. De controller 
is geïntegreerd. 

De Intel Connection Coprocessor is 
een multifunctioneel communica- 
tieboard dat kan zorgen voor het in 
de achtergrond verzenden van 
faxen, bestanden en E-mail. posi¬ 
tronika levert ook Kurzweil pro¬ 
dukten, RasterOps randappara¬ 
tuur voor de Macintosh, DCA net¬ 
werking hard- en software en er 
worden nieuwe produkten van 
3COM getoond. Zo is de 3S/500 een 
nieuwe netwerkserver met stan¬ 
daard 2 of 8 MB RAM, diskdrives 
van 150-690 MB en een tape-een- 
heid van 250 MB of 2,3 GB. Uit¬ 
breidbaar tot 16 MB RAM en 6 GB 
aan harddisk. 


Rank Xerox 

E 337 020 - 5106911 

De kernactiviteit van Rank Xerox 
is document processing en in dit 
kader worden enkele nieuwe pro¬ 
dukten geïntroduceerd. 

Er zijn nieuwe laserprinters: de 
Xerox 3700 release 5.0 (met release 
5.0 printer software om de 9700 fa¬ 
milie te emuleren), de Xerox 3700 
voor A3 Graphics (voor afdrukken 
op A3 formaat), de Xerox 4030 en 
de Xerox 4650 en 4090 printers. De 
eerste zijn low-volume printers 
met nieuwe toepassingen ten op¬ 
zichte van hun voorgangers. De 
4650 en 4090 zijn high-volume 
printers met een resolutie van 
600 x 600 dpi. De printers heb¬ 
ben een afdruksnelheid van 
sp. maximaal 50 en 92 
pagina’s per minuut. 



• Het feit dat de meeste typen uitsluitend data kunnen uitlezen. 

Het wegschrijven geeft technische problemen. Toch komen er 
steeds meer optische drives op de markt die naast lezen ook data 
(soms slechts eenmalig) kunnen wegschrijven. 

De verwachtingen rondom de educatieve en naslagmogelijkheden van 
optische schijfjes zijn hooggespannen. Omvangrijke handboeken pas¬ 
sen nu op één CD schijf en het doorzoeken gaat in seconden. De in¬ 
teractieve privéleraar op de optische disk is al lang geen droom meer. 
Een PC wordt tot onderwijsstation, dat vragen stelt, de antwoorden 
met u doorneemt en fouten uitlegt. De Interactieve Video Techniek 
(IVT) zal de komende jaren een grote vlucht nemen. Hetzelfde geldt 
voor CD-informatiesystemen zoals VW, musea, auto-navigatie, bibli¬ 
otheken en encyclopedische informatie. 


‘Tahiti’ 

1 Gigabyte 
wisbare opti¬ 
sche drive van 
Maxtor 
(foto Maxcom) 



Waarom een extra drive? 

Dankzij het bouwdoosconcept van de PC is meestal op uitbreiding met 
extra drives gerekend. In de grotere systeemkast zitten een drive 
chassis (drive bay), controllerkaart, verbindings- en voedingskabel- 
tjes. U kunt er zo een diskettestation, harddisk of tapestreamer bij¬ 
zetten. Maar waarom zou u dat eigenlijk doen? Daarvoor gelden in 
het algemeen de volgende practische argumenten: 

• Sneller en gemakkelijker werken. Een machine met slechts 
één diskdrive is eigenlijk geen doen. Twee diskdrives zijn zelfs 
voor vele programma’s een must. De voordelen van de harddisk 
zijn inmiddels al uit de doeken gedaan. 

• Het door elkaar gebruiken van verschillende disketteformaten. 
Elk format zijn eigen drive. 

• Het vergroten van de opslagcapaciteit. Met name bij de hard¬ 
disks en de 1.2/1.44 MB-diskdrives. 

• Het installeren van een backup drive. Tapestreamer, eventueel 
een extra harde schijf. 

Een extra drive geeft vrijwel altijd meer gemak, datacapaciteit en vaak 
ook betere systeemprestaties. 

Drives zijn onmisbaar voor uw computer. Alleen terminals kunnen zon¬ 
der. Het werken met verschillende formats, grote data- opslagcapaci¬ 
teit, een grotere efficiency plus betere systeemprestaties, snelle back- 
ups en IVT-educatie, het zou allemaal niet mogelijk zijn zonder (ex¬ 
tra) drives. En om de kosten behoeft de PC gebruiker het 
tegenwoordig echt niet meer te laten. 


U.S 




Ondanks alle toekomstverwachtingen over het elektronische kantoor van 
morgen heeft het beeldscherm het papier nog altijd niet vervangen. Sterker 
nog, de sterke groei van het computerpark heeft een nog sterkere groei van 
de papierberg tot gevolg gehad. Printers vervullen nog steeds een belangrijke 

communicatiefunctie. 


Printers 


Papieren hardcopies 



Beeldschermen zijn vooralsnog vermoeiende en lastig lezende dingen. 
Bovendien moet je dan eerst de computer en monitor weer aanscha¬ 
kelen om. de magnetisch of optisch opgeslagen informatie te kunnen 
lezen. Even een papieren uitdraaitje uit een goede printer trekken 
gaat veel gemakkelijker en leest of corrigeert ook prettiger. Men 
noemt de uitgeprinte informatie de papieren hardcopies van de di¬ 
gitale data. 

In de praktijk worden de papieren hardcopies oa. gebruikt voor het uit¬ 
wisselen van teksten (steeds meer vormgegeven met behulp van 
Desktop Publishing), corrigeren van teksten, afdrukken van illustra¬ 
ties en het maken van technische ontwerpen of tekeningen. 

Ook de opkomst van de fax heeft de papierberg doen groeien ; de compu¬ 
ter- verzorgt, de communicatie en de printer produceert de berichten. 

De mogelijkheden van de moderne printer zijn groot en het zal. nog wel 
enkele decennia duren voordat alles via de HIRES of HDTV monitor 
verloopt. 


Soorten printers 


Er zijn vele typen printers in omloop die technisch gezien, allemaal an¬ 
ders functioneren. Het oudste systeem werkt via een mechanische 
overbrenging' van de inkt uit het inktlint op het papier. Dat kan met 
ïetterhamertjes bij de margrietwielprinter of computergestuurde 
schrijfmachine met roterende letterbot en via naaldjes bij de zoge¬ 
naamde matrixprinters. De matrixprinters zijn tot op heden de meest 
gebruikte . Plotters zijn afdrukkers die de tekst en vooral grafische 
ontwerpen via viltstiftjes of pennetjes op het papier tekenen. Een 
speciale vorm zijn de eiectrostatische plotters, waarbij de inkt zich 
door ladingsverschillen aan de onderlaag (papier, sheets e.d.) hecht. 
Thermische printers hechten de inkt door lokale verhitting aan het 
papier. Daar komt verder geen enkel mechanisch geweld aan te pas. 
Deze printers worden voornamelijk bij draagbare modellen en video 
printers (ook in kleur) gebruikt. 

Alle tot nu toe genoemde printers kenmerken zich dooi het feit dat de 
lettertekens of grafische symbolen stuk voor stuk. na elkaar en regel 
voor regel op het papier gezet worden. Dit in tegenstelling tot de 
zogenaamde paginaprinters (pageprinters) die in één run een com¬ 
plete pagina afdrukken. De inkjetprinters nemen een tussenpositie 
in. Deze apparaten spuiten de letters en grafische tekens op het pa¬ 
pier. Sommige doen dat teken voor teken. Andere kunnen halve pagi¬ 
na’s tegelijk bewerken, 

De echte pageprinters zijn de Laser- en LCD-printers, Deze werken met 
licht om een. gevoelige drum te activeren en functioneren verder als 
een soort fotokopieerapparaat. De laser - en LCD-printers worden ten 
gevolge van flinke prijsdalingen en hun bijna-drukwerkkwaliteit 
steeds populairder. 









Matrixprinters 

Dankzij de redelijke prijs (ƒ 500,- tot ƒ 3000,-) en een groot aantal mo¬ 
gelijkheden, vormen matrixprinters de eerste keuze waar een lichte 
geluidshinder, lagere afdruksnelheid en drukwerkkwaliteit geen 
voorname rol spelen. Ruwweg bepaalt het aantal naaldjes, door¬ 
gaans 9, 18 of 24, de uiteindelijke drukkwaliteit. Binnen dezelfde 
prijsklasse en gelijk aantal naalden kunnen echter grote verschillen 
optreden. Vaak is de keuze ook een kwestie van persoonlijke smaak. 
24-Naalds matrixprinters geven een redelijke correspondentiekwali- 
teit. Sommige modellen hebben wat moeite met een echt diepzwart 
schrift. 

Matrixprinters zijn, op de high-output modellen na, niet zo snel. De te¬ 
kens worden stuk voor stuk en de pagina’s regel voor regel afgedrukt. 
Het aantal tekens per seconde, cps, is een ruwe maat voor de snel¬ 
heid. Dikwijls stelt de fabrikant de zaken gunstiger voor dan in de 
praktijk het geval is. Brede kolommen, vet- of schuinschrift en ver¬ 
schillende fonts vragen extra afdruktijd en dan lopen de prestaties 
snel terug. Bovendien geldt de opgegeven maximumsnelheid voor de 
lelijkste afdrukmodus, de beruchte draft-computerletter. In de cor- 
respondentiestand Near Letter Quality (NLQ) of Letter Quality (LQ) 
valt de snelheid terug tot 20 a 30% van het maximum. 

De drukkwaliteit wordt opgegeven in het aantal puntjes (dots) per 
inch, de DPI. Normaal is de range 180-240 dpi. Geen fotokwaliteit, 
maar beter dan de krant. 

Matrixprinters kunnen relatief veel. Het afdrukken van vreemde tekens, 
tekst en grafieken en verschillende fonts vormen meestal geen pro¬ 
bleem. Ook kan de moderne matrixprinter tal van afdrukstandaards 
nabootsen (emuleren). Toch ontstaan regelmatig aansturingsproble¬ 
men door slecht werkende drivers (stuurprogramma’s) of een ver¬ 
keerde instelling. Een ander bezwaar vormt de iawaaiproduktie. 

Letterwiel printers 

De margrietwiel- en schrijfmachineprinters vormen een uitster¬ 
vend ras. De schrijfmachine is qua kwaliteit nog onovertroffen. He¬ 
laas geldt dit ook voor de grote Iawaaiproduktie en zeer lage afdruk¬ 
snelheid. De keuze is beperkt en de prijzen zijn stevig. Toch kiezen 
conservatieve brieventikkers nogal eens voor deze printercategorie. 

Thermische printers 

De grote voordelen van thermische printers zijn de compacte bouw en 
de mogelijkheid tot goedkope kleurendruk. Thermische printers wor¬ 
den wel samen met portable computers verkocht. Een recentere toe¬ 
passing is de videoprinter waarmee het schermbeeld in full coiour 
kunt afgedrukt kan worden. 

Bezwaren van thermische printers zijn dikwijls de enigszins tegen¬ 
vallende afdrukkwaliteit en de papierprijs. De printers zelf zijn rela¬ 
tief goedkoop. Qua snelheid scoren zij gemiddeld. 


Plotters 

De plotter was vroeger een specialistisch apparaat voor de technisch 
tekenaar en industrieel ontwerper. Dat geldt nog altijd voor de peper¬ 
dure topmodellen die vooral om hun nauwkeurigheid en perfecte lij¬ 
nen gekocht worden. Behalve deze high-end markt voor CAD/CAM 
bestaat er ook een budget- en low-end markt. Reklametekenaars en 
desktop publishers grijpen ook meer en meer naar de plotter voor het 
maken van grafische ontwerpen. De amateur kan experimenteren 
met goedkope versies van circa ƒ 500,-. Plotters nemen echt de tijd 
voor hun tekenwerk. Alleen de superdure elektrostatische modellen 
zijn wel redelijk snel. Een tweede probleem vormt de aansturing. Bij 
nogal wat software werd niet aan piotterbesturing gedacht. 


Remidex 

E 330 075 - 515615 

Van de bekende printerleverancier j 
Nakajima laat .Remidex een twee 
tal nieuwe modellen zien ter ver- j 
vanging van de AR-50 en AR-55, j 
De dot-matrix printers zijn 24- j 
naalds printers, resp. een 80 en| 
132 koloms versie. De topsnelheid j 
van beide types is met 12 cpi een I 
300 tekens per sekonde. 

Rocomp i 

Z 469 040 - 425025 \ 

Drie nieuwe computers van Corda- j 
ta zijn op de Rocomp stand te zien. 
De CS4500 is een 12 MHz 80286 
AT met 640 KB aan RAM op het 
moederbord. Een 3,5" 1.44 MB 
diskdrive is ingebouwd en een 20 
of 40 MB harddisk is optioneel, 

De CS4600 heeft dezelfde proces- j 
sor en hoeveelheid geheugen, dat 
| op het moederbord uitgebreid kan 
worden tot 4 MB. Een 5,25" disk¬ 
drive is aanwezig. Deze AT is on¬ 
dergebracht in een full size kast, in 
tegenstelling tot de CS4500 die in 
! een kleine kast met lage ombouw i 
is behuisd. 

1 De CS5000-25 heeft een 80386-25 
MHz, zero waitstate processor en 
biedt plaats aan .16 MB RAM op 
het moederbord. Standaard zit er 

2 MB in. 


Sirex Europe 

O 110 053 333600 

Sirex komt behalve met een nieu- < 
we versie van de ‘geluidchip’ ook 
met een superkleine AT, die in 
Twente wordt geproduceerd. De 
Sirex 286T Stationmaster (12 
MHz en 10 MHz uitvoeringen) is j 
een complete AT met 3,5 inch drive j 
en maximaal 200 MB harddisk en! 
4 MB geheugen maximaal op hetj 
moederbord (SÏMM’s). Er is een 8- 
bits en een 16-bits slot vrij. 


Switch Computers 









uit te breiden tot 2, 4, of 5 MB. Het 
plasma scherm is MDA/CGA/ EGA 
compatible en levert een resolutie 
van 640 x 400. Ook kan er gelijktij¬ 
dig een externe monitor op aangeslo¬ 
ten worden. 


Tracor Europa 

A 222 030 - 280855 

Van C-Itoh zijn er op de stand van 
Tracor nieuwe grafische terminals 
te zien voor onder andere DEC. De 
CIT 334 zwart wit terminal heeft 
een hoge resolutie van 800x500 met 
een 14 inch diagonaal. Er zijn diver¬ 
se emulaties beschikbaar waarbij er 
sessies van twee verschillende syste¬ 
men gelijktijdig in beeld te brengen 
zijn. 


Tradecom International 

D 721 01714 ■ 14300 

Tradecom richt haar stand in met 
produkten in de sfeer van scanning 
en vectorisatie (CAD), optische sys¬ 
temen en datacommunicatie. Op het 
gebied van CAD worden complete 
systemen getoond en nieuwe versies 
van Rocad en Robuild. 

Het optische system DocMan heeft 
sinds vorig jaar een aantal uitbrei¬ 
dingen ondergaan en het netwerk¬ 
systeem van TCI verbindt beide 
reeksen produkten. 


Xios Systems 

R 807 015 - 619561 

Xios uit Delft legt op de beurs de na 
druk op het nieuwe Xios 7400 werk 
station, de nieuwe Xios PC-lijn en| 
nieuwe mogelijkheden van docu 
mentconversie. 

Met de Xios 7400 is ‘Mode Switching' 
tussen de Xios, Dos en Unix omge 
vingen mogelijk. Het systeem| 
heeft een Xios tekstverwerker, 
window omgevingen, interac 
tieve printer support, 3270j 
SNA Gateway, TCP/IP, 
LAN en WAN koppe 
lingen, etc. 



Inkjet printers 

De inktspuiters stonden in een kwaad daglicht vanwege allerlei geknoei 
met verstopte inktbuisjes waar geen druppel meer uitkwam. Dankzij 
de geavanceerde en attractief geprijsde bureaumodellen van HP lijkt 
de inkjetprinter weer toekomst te krijgen. Deze apparaten benade¬ 
ren in kwaliteit de laserprinter en kunnen tekst gecombineerd met 
grafieken afdrukken. Bij desktop publishing kan het een bezwaar zijn 
dat deze printers soms niet meer dan een halve pagina tegelijk kun¬ 
nen afdrukken. 

Of de inkjets een deel van de lasermarkt zullen wegkapen valt nog te 
bezien. De prijstelling is gunstig en zelfs lager dan bij menige 24- 
naalds matrixprinter. Een ander voordeel is het muisstille afdrukken. 
Er zijn echter wel een paar beperkingen in snelheid en pagina om¬ 
vang. 

Laser- en LCD-printers 

Wie snelheid en afdrukkwaliteit hoog in het vaandel voert komt bij de 
laser- of LCD- pageprinters terecht. Deze printers leveren semidruk- 
werk (300, 400, 600 of 800 dpi) af en hun snelheid wordt opgegeven 
in het aantal pagina’s per minuut in plaats van cps. Desktop publis¬ 
hing, perfect ogende correspondentie, het maken van formulieren 
e.d., het zou allemaal veel minder zijn zonder deze moderne kantoor- 
printers. De kantooromgeving vaart wel bij de geringe geluidsproduc¬ 
tie. 

De laser bevat relatief veel mechanische onderdelen, wat een bron van 
storingen kan vormen. De nieuwere LCD modellen (Liquid Cristal 
Display-sluiter i.p.v. een schrijvende laserstraal) zouden in deze wat 
betrouwbaarder zijn. In het verleden waren er nog wat andere pro¬ 
blemen. De toner gaf veel troep, de machines vervuilden snel en men 
kon met een beetje pech de monteur aan het apparaat vastketenen. 
Ook vielen de aanschaf- en onderhoudsprijzen flink tegen. Een laser- 
velletje kostte al gauw zo’n 50 cent. Verder was het werken met en¬ 
veloppen en papierformaten groter dan A4 lastig. 

De nieuwe generatie laser- en LCD-printers lijkt de meeste kinder¬ 
ziekten te hebben overwonnen. 

Printer aankoop 

De belangrijkste richtlijnen die u bij aankoop van een prinster in het 
achterhoofd dient te houden zijn: afdrukkwaliteit; snelheid; com¬ 
patibiliteit met de hardware (parallelle of seriële aansturig, control¬ 
lers); degelijkheid; gebruiksvriendelijkheid; kan uw software 
de printer aansturen en zo ja komen dan ook alle gewenste tekens 
er uit; heeft de printer voldoende RAM/buffergeheugen voor lange 
teksten, verschillende fonts, DTP, etc.; werkelijke bedrijfskosten 
(denk aan papier, inktlinten, tonercassettes, OPC-drums, ontwikke- 
lunits, service, etc.); welke papierformaten kan de printer aan; hoe 
is de lawaaiproductie? zijn er ook extra accessoires/uitbreidin¬ 
gen leverbaar (oa. geheugenuitbreiding, besturingskaarten en font- 
cartridges); Welke aanstuurtaal (HP Laserjet, Postscript) wordt er 
gebruikt. Dit is belangrijk voor laserprinters en DTP toepassingen. 

Gezien het gebruik dat u van de printer zult maken is het geen over¬ 
bodige luze om deze zaken op een rijtje te zetten. 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


990 data 5,212,169,90,141,6,212,238,0, 
207,238,0,207,173,0,207 
995 data 201,78,208,5,169,0,141,0,207, 
174,0,207,189,193,16,188 
1000 data 194,16,141,1,212,140,0,212,16 
9,17,141,4,212,208,179,234 
1005 data 21,154,25,177,28,214,32,94,34 
,75,32,94,28,214,22,227 
1010 data 19,63,21,154,22,227,25,177,21 
,154,21,154,20,100,21,154 
1015 data 22,227,19,63,16,47,21,154,25, 
177,28,214,32,94,34,75 
1020 data 32,94,28,214,22,227,19,63,21, 
154,22,227,25,177,22,227 
1025 data 21,154,19,63,18,42,19,63,21,1 
54,21,154,21,154,173,0 
1030 data 203,240,68,238,1,203,173,1,20 
3,201,30,208,58,169,0,141 
1035 data 1,203,169,0,141,11,212,169,0, 
141,13,212,169,9,141,12 
1040 data 212,238,2,203,238,2,203,173,2 
,203,201,12,208,5,169,0 
1045 data 141,2,203,174,2,203,189,89,17 
,188,90,17,141,8,212,140 
1050 data 7,212,169,33,141,11,212,96,9, 
247,9,104,10,143,10,143 
1055 data 8,57,7,12,64 


EINDE LISTING ufo-bas 


Multiple-choice 


Omdat wij weinig onderwijs programma’s plaat¬ 
sen schreef Obbe Vermeij het volgend program¬ 
ma voor ons. Multiple choice is een programma 
voor de C-64 waar mee multiple choice-testen 
gemaakt ge-edit en overhoord kunnen worden. 
Door de overzichtelijke structuur met veel REM- 
regels moet het ook zeer eenvoudig zijn om het 
programma naar eigen keus te veranderen of aan 
te vullen. 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 


rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 

rem 


multiple choice (c-64) 
door 


************************** 

** ** 

** obbe vermeij ** 

** ** 
** ** 

************************** 


rem 

rem octopus software 

rem 

dim qu$(100) , al$(100),a2$(100),a3$ 

(100),a4$(100),ri(100) 

gosub 4000:gosub 3880:gosub 3810 


rem ******** hoofd menu ******** 
x=7 

m$=" " 
b=l 

t$="hoofd[SPACE]menu" 

q$(1)="vragen[SPACE]overhoren" 

q$(2)="vragen[SPACE]bekijken/aanvu 


1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 


1340 

1350 

1360 


1370 

1380 

1390 

1400 

1410 

1420 


1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 


1640 


1650 

1660 


Hen" 

q$(3)="nieuwe[SPACE]file[SPACE]ope 
nen" 

q$ (4)="file[SPACE]saven" 
q$(5)="file[SPACE]laden" 
q$(6)="uitleg" 

q$ (7)="uit[SPACE]het[SPACE]program 
ma" 

gosub4260 

on c goto 2610,1730,1480,3010,3200 
,3390,1330 

rem ******* weg uit prg. ******* 

m$="zeker[SPACE]weten[SPACE]?[SPAC 
E]u[SPACE]vernietigt[SPACE]de[SPAC 
E]file" 
t$=q$(7) 

q$(1)= "nee, [ SPACE ] ik [ SPACE ] weet [ SP 
ACE]het[SPACE]niet[SPACE]zeker" 
q$(2)="ik[SPACE]wil[SPACE]er[SPACE 
]nog[SPACE]even[SPACE]over[SPACE]d 
enken" 

q$(3)="over[SPACE]5[SPACE]minuten, 

[SPACE]mis s chien" 

q$ (4)="ja[SPACE],ik[SPACE]weet[SPA 

CE]het[SPACE]zeker[SPACE]!" 

x=4 

gosub 4260 

on c goto 1170,1170,1170,1420 
print”[SHIFT-CLR][7xSPACE]eindelij 
k[SPACE]bent[SPACE]u[SPACE]eruit[S 
PACE]!" 
poke 53269,0 
end 


rem ***** nieuwe file openen ***** 
x=2 

t$="dit[SPACE]zal[SPACE]de[SPACE]o 
ude[SPACE]file[SPACE]vernietigen" 
m$="zeker[SPACE]weten[SPACE]?" 
q$(2)="j a[SPACE],ik[SPACE]wil[SPAC 
E]een[SPACE]nieuwe[SPACE]file." 
q$(l)="nee[SPACE],ik[SPACE]wil[SPA 
CE]de[SPACE]oude[SPACE]houden." 
gosub 4260 
on c goto 1170,1550 
print"een[SPACE]moment j e[SPACE]a.u 
. b. " 

poke 53269,0 
nq=0 

for t=0to 100:qu$(t)="":nextt 
for t=0to 100:al$(t)="":nextt 
for t=0to 100:a2$(t)="":nextt 
for t=0to 100:a3$(t)="":nextt 
for t=0to 100:a4$ (t)nextt 
print"[SHIFT-CLR][4XCRSR-DOWN][10x 
SPACE]wat[SPACE]zal[SPACE]de[SPACE 
]nieuwe" 

input"naam[SPACE]van[SPACE]de[SPAC 
E]file[SPACE]zijn[2xSPACE](max.[SP 
ACE]40[SPACE]char.)[CTRL-2]";qu$(0 
) 

if len (qu$ (0) ) >40 the,n goto 1630 
print"[SHIFT-CLR][3xCRSR-DOWN]vrag 
en[SPACE]maken[SPACE]door[SPACE]'v 
ragen[SPACE]bekijken/aan-[SPACE]vu 
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1 ! 

O 

o 

]M 

1 

1 

1 


Hen' [2xSPACE] te [SPACE] kiezen. " 

1990 

if ri(nq+l)>4 then goto 1980 

I 

■F 

! 

1 

O 


1 

1 

1670 

print"[6xCRSR-DOWN][6xSPACE]<spati 

2000 

if ri(nq+l)<l then goto 1980 

1 



1 - 


e>[SPACE]voor[SPACE]doorgaan." 

2010 

return 

1 ■ 



1 

1680 

gosub 4180 

2020 

poke 646,12 

: i 

1 


o 

1 

1 

1690 

goto 1170 

2030 

print"[SHIFT-CLR][CRSR-DOWN][6xSPA 

1 

| 

o 

1 

1 

1700 



CE]is[SPACE]het[SPACE]z o[SPACE]naa 

1 


ï 

1710 



r[SPACE]uw[SPACE]zin[SPACE]?[2xCRS 

1 



1 

1720 

rem **** vragen bekijken/aanv.**** 


R-DOWN]" 

1 


o 

1 

1730 

t$=q$(2) 

2040 

z=nq+l 

f 

| 

o 

1 

1 

1740 

m$="wat[SPACE]wilt[SPACE]u[SPACE]? 

2050 

gosub 4580 

1 


|S 


" 

2060 

poke 646,15 

1 



! 

1750 

x=2 

2070 

print"[3xCRSR-DOWN][3xSPACE]<fl>=[ 

1 


o 


1760 

q$(1)="oude[SPACE]vragen[SPACE]zie 


SPACE]correct[3xSPACE]<f3>=[SPACE] 

1 

1 

o 

1 


n[SPACE]of[SPACE]veranderen." 


niet[SPACE]correct" 

i 

i 


1 

1770 

q$(2)="nieuwe[SPACE]vragen[SPACE]i 

2080 

get a$ 

i 



1 


nvoeren." 

2090 

if a$="[Fl]"then goto 2120 

1 



1 

1780 

gosub 4260 

2100 

if a$="[F3]"then goto 1810 

i 

1 

o 

o 

1 

1 

1790 

poke 53269,0 

2110 

goto 2080 

1 

| 

1 

1800 

on c goto 2170,1810 

2120 

nq=nq+l 

1 



1 

1810 

print"[CTRL-2][SHIFT-CLR][2xCRSR-D 

2130 

goto 1810 

1 



1 


OWN][8xSPACE]nieuwe[SPACE]vragen[S 

2140 


1 

1 


o 

1 


PACE]invoeren[CRSR-DOWN]" 

2150 


1 

| 

o 

1 

1820 

poke 646,12 

2160 

rem *oude vragen veranderen/bek.** 

1 


I 

1830 

print"[5xSPACE]de[SPACE]file[SPACE 

2170 

z=l:if nq=0then goto 1170 

1 



! 


]bevat[2xSPACE]";nq;"[SPACE]vragen 

2180 

poke 646,12 

1 . 


o 

1 


” 

2190 

print"[SHIFT-CLR][CRSR-DOWN][7xSPA 

1 

1 

o 

1 

1 

1840 

print"[2xCRSR-DOWN][3xSPACE]voer[S 


CE]de[SPACE]file[SPACE]bevat[2xSPA 

1 

1 


1 


PACE]xxx[SPACE]in[SPACE]voor[SPACE 


CE]";nq;"[SPACE]vragen" 

1 



1 


]hoofd[SPACE]menu[3xSPACE]of[SPACE 

2200 

print"[5xSPACE]u[SPACE]ziet[SPACE] 

1 


o 

I 


]" 


nu[SPACE]vraag[SPACE]nummer[SPACE] 

1 

1 

o 

I 

1 

1850 

gosub 1870 


";z;"[2xCRSR-DOWN]":poke 646,15 

1 

| 

1 

1860 

goto 2020 

2210 

gosub 4580 




I 

1870 

input"[CRSR-DOWN][SPACE]voer[SPACE 

2220 

poke 646,12 




1 


]volgende[SPACE]vraag[SPACE]in(max 

2230 

print"[SPACE]<fl>=zie[SPACE]volgen 

1 


o 

1 

1 


.[SPACE]38[SPACE]char)[SPACE][CTRL 


de[SPACE]vraag" 

1 

| 

o 

1 


2]";qu$(nq+1) 

2240 

print"[SPACE]<f3>=de ze[SPACE]vraag 

1 


1 

1880 

if len(qu$(nq+1))>38 then goto 187 


[SPACE]veranderen" 

1 



I 


0 

2250 

print"[SPACE]<f7>=zie[SPACE]vorige 

1 


o 

1 

1 

1890 

if left$(qu$(nq+1),3)="xxx"then go 


[SPACE]vraag" 

1 

| 

o 

1 

1 


to 1170 

2260 

print"[SPACE]<space>=hoofd[SPACE]m 

1 


1 

1900 

poke 646,12: input"[SPACE]voer[2xS 


enu[CRSR-UP]" 

1 



1 


PACE]le[SPACE]mogelijkheid[SPACE]i 

2270 

get a$ 

1 ' 


o 

1 


n[SPACE](max.31[SPACE]le.)[CTRL-2] 

2280 

if a$="[Fl]" then goto 2330 

1 

1 

o 

1 

1 


";al$(nq+1) 

2290 

if a$="[F3]" then goto 2370 

i 

| 


1 

1910 

if len(al$(nq+1))>31 then goto 190 

2300 

if a$="[F7]" then goto 2350 

1 



1 


0 

2310 

if a$="[SPACE]" then goto 1170 

1 



I 

1920 

poke 646,12: input"[SPACE]voer[SPA 

2320 

goto 2270 

1 

1 


o 

1 

1 


CE]2 de[SPACE]moge1ij kheid[SPACE]in 

2330 

if z=nq then goto 2270 

1 

| 

o 

1 


[SPACE](max.31[SPACE]le.)[CTRL-2]" 

2340 

z=z+l:goto 2180 

1 


1 


;a2$(nq+1) 

2350 

if z=l then goto 2270 

1 



1 

1930 

if len(a2$(nq+1))>31 then goto 192 

2360 

z=z-l:goto 2180 

1 


o 

1 


0 

2370 

t $="vraag[SPACE]veranderen" 

1 

| 

o 


1940 

poke 646,12: input"[SPACE]voer[SPA 

2380 

m$="wat[SPACE]wilt[SPACE]u[SPACE]v 

1 




CE]3de[SPACE]mogelijkheid[SPACE]in 


eranderen[SPACE]?" 

1 



I 


[SPACE](max.31[SPACE]le.)[CTRL-2]" 

2390 

x=2 

1 


o 

1 


;a3$(nq+1) 

2400 

q$(1)="iet s[SPACE]aan[SPACE]de[SPA 

1 

| 

o 

1 

1 

1950 

if len(a3$(nq+1))>31 then goto 194 


CE]vraag." 

1 


i 


0 

2410 

q$(2)="ik[SPACE]wil[SPACE]de[SPACE 

1 



1 

1960 

poke 646,12: input"[SPACE]voer[SPA 


]vraag[SPACE]verwijderen." 

1 . 



I 


CE]4de[SPACE]mogelijkheid[SPACE]in 

2420 

gosub 4260 

1 

1 

o 

o 

1 

1 


[SPACE](max.31[SPACE]le.)[CTRL-2]" 

2430 

on c goto 2540,2440 

i 

1 

1 


;a4$(nq+1) 

2440 

for t=z to 99 

1 



! 

1970 

if len(a4$(nq+1))>31 then goto 196 

2450 

qu$(t)=qu$(t+1) 

1 



1 


0 

2460 

al$(t)=al$(t+1) 

I 


o 

1 

'I ' 

1980 

poke 646,12:input"[SPACE]wat[SPACE 

2470 

a2$(t)=a2$(t+1) 

i 

i 

o 

I 


]is[SPACE]het[SPACE]juiste[SPACE]a 

2480 

a3$(t)=a3$(t+1) 

i 




ntwoord [3stSPACE] (1-4) [CTRL-2 ]"; ri ( 

2490 

a4$(t)=a4$(t+1) 

i 



1 

1 


nq+1) 

2500 

ri(t)=ri(t+1) 

i 

i 


o 

i. 

t 





i 

i 

o 


1 ' 

1 

ïT 
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2510 

nextt 

3030 

m$="zeker[SPACE]weten[SPACE]?" 

! 

, 1 

O 

2520 

nq=nq-l:poke 53269,0 

3040 

q$(l)="ja" 

1 


2530 

goto 2170 

3050 

q$(2)="nee" 

I 


2540 

o=nq:ncpz-l 

3060 

gosub4260 

1 


2550 

poke 53269,0:print”[SHIFT-CLR]":go 

3070 

on c goto 3080,1170 

1 

o 


sub 1870 

3080 

openl,1,1,"multiple[SPACE]ah.[SPAC 

: j/. 


2560 

z=nq+l:nq=o 


E]*" 

f? ! v 


2570 

goto 2170 

3090 

print#l,nq:print#l,qu$(0) 



2580 


3100 

for t=l to nq 

1 

| 

o 

2590 


3110 

print#l,qu$(t):print#l,al$(t):prin 

1 

2600 

rem ****** vragen overhoren ****** 


t#l,a2$(t):print#l,a3$(t):print#l, 

1 


2610 

if nq=0then goto 1170 


a4$(t) 

1 

I 


2620 

x=2 

3120 

print#l,ri(t) 

1 

| 


2630 

t$=q$(l) 

3130 

nextt 

1 


2640 

m$="hoe[SPACE]moeten[SPACE]ze[SPAC 

3140 

close 1 

1 



E]overhoord[SPACE]worden[SPACE]?" 

3150 

gosub3800 

1 

I 


2650 

q$(1)="beginnen[SPACE]met[SPACE]1[ 

3160 

goto 1170 

1 

| 



SPACE]dan[SPACE]2,3,4[SPACE]enz." 

3170 

: 

1 

o 

2660 

q$(2)="in[SPACE]willekeurige[SPACE 

3180 


1 



]volgorde." 

3190 

rem ******** load optie ******** 

1 


2670 

gosub 4260 

3200 

t$=q$<5) 

1 

I 


2680 

ra=0:wa=0 

3210 

m$="zeker[SPACE]weten[SPACE]?" 

1 

| 

o 

2690 

w=c 

3220 

x=2 

1 


2700 

for d=l to nq 

3230 

q$(1)="ja" 

1 


2710 

z=d 

3240 

q$(2)="nee" 

1 

I 


2720 

if w=2 then z=l+int-(rnd (1) *nq) 

3250 

gosub 4260 

1 

| 

o 

2730 

t$=qu$(0) 

3260 

on c goto 3270,1170 

1 


2740 

m$=qu$(z) 

3270 

open 1,1,0,"multiple[SPACE]ch.[SPA 

1 


2750 

q$(l)=al$(z) 


CE]*" 

1 


2760 

q$(2)=a2$(z) 

3280 

input#l,nq:input#l,qu$(0) 

. 1 
| 


2770 

q$(3)=a3$(z) 

3290 

for t=l to nq 

1 

o 

2780 

q$(4)=a4$(z) 

3300 

input#l,qu$(t):input#l,al$(t):inpu 

1 


2790 

q$(5)="" 


t#l,a2$(t):inputfl,a3$(t):input#l, 

1 


2800 

q$(6)-"stop[SPACE]de[SPACE]overhor 


a4$ (t) 

. 1 
| 



ing" 

3310 

input#l,ri(t) 

1 

o 

2810 

x=6 

3320 

nextt 

1 


2820 

gosub 4260 

3330 

close 1 

1 


2830 

on c goto 2840,2840,2840,2840,2820 

3340 

gosub3800 

1 

I 



,2870 

3350 

goto 1170 

1 

1 

o 

2840 

if c=ri(z)then ra=ra+l 

3360 


1 

2850 

if c<>ri(z)then wa=wa+l 

3370 


1 


2860, 

next d 

3380 

rem ******* instructies ******** 

1 


2870 

poke 53269,0 

3390 

v=l:poke53269, 0 

1 

| 


2880 

print"[SHIFT-CLR][2xCRSR-DOWN]";qu 

3400 

poke 646,15:print"[SHIFT-CLR][CRSR 

1 

O 


$(0) 


-DOWN][SPACE]************[SPACE]in 

1 


2890 

print"[CRSR-DOWN][SPACE]resultaten 


structies[SPACE] ************" 

1 



" 

3410 

if v=0then v=l 

1 

I 


2900 

print"[2xCRSR-DOWN][CTRL-2][SPACE] 

3420 

if v=4 then goto 1170 

1 

1 

O 


de[SPACE]leerling[SPACE]maakte[SPA 

3430 

print"[CRSR-DOWN][17xSPACE] ; v; "- 

1 



CE]" ; ra+wa;"[SPACE]vragen" 


[CTRL-2][CRSR-DOWN]" 

1 


2910 

print"[CRSR-DOWN]hij/zij[SPACE]ant 

3440 

on v gosub 3490,3590,3670 

j 

I 



woorde[SPACE ]";ra;"[ SPACE]vragen[S 

3450 

print"[2xCRSR-DOWN][4xSPACE]<spati 

1 

1 

o 


PACE]juist. " 


e> [ SPACE ]=[ SPACE ] volgende [ SPACE ] bl 

I 


2920 

if watra=0then wa=l 


adzijde" 

1 


2930 

print"[3xCRSR-D0WN]dus[SPACE]maakt 

3460 

get a$ 

1 . 

1 



e[SPACE]zij/hij[SPACE]"int(ra/(wat 

3470 

if a$="[SPACE]"then v=v+l:goto 340 

i 

1 

o 


ra)*100);"[SPACE]%[SPACE]goed." 


0 

! 


2940 

poke 646,15 

3480 

goto 3460 

' 1 


2950 

print"[7XCRSR-DOWN][4xSPACE]<spati 

3490 

print"[SPACE ] multiple[SPACE]choice 

1 j 



e> [ SPACE ]=[ SPACE ] terug [ SPACE ] naar [ 


[ SPACE ] is [ SPACE ] bedoeld [ SPACE ] om [ S 

i 

i 



SPACE ] hoo fd [ SPACE ] menu " 


PACE]leraren" 

i 

O 

2960 

gosub 4180 

3500 

print"[SPACE]te[SPACE]helpen.[SPAC 

i 


2970 

goto 1170 


E]met [ 2xSPACE ] dit[2xSPACE]programm 

i 


2980 



a [ SPACE ] is [ SPACE ] het " 



2990 


3510 

print"[SPACE]mogelij k[SPACE]om [ SPA 

i 

o 

3000 

rem ********* save optie ******** 


CE]een[SPACE]leerling[SPACE]te[SPA 

i 


3010 

t$=q$(4) 


CE]overhoren" 

i 


3020 

x=2 

3520 

print "[ SPACE ] en [ SPACE ] de [ SPACE ] c - 6 

i 

! 
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i 


o 
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1 





o 

o 

II 

- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 

1 

o 

o 

fi - 
1 

1 

1 


4[SPACE]de[SPACE]score[SPACE]te[SP 

3830 

poke 832+t,a 

i 

i 

i 

o 


1 


ACE]laten[SPACE]geven[SPACE]." 

3840 

nextt 

(' 



1 

3530 

print 

3850 

return 

i 



1 

3540 

print"[SPACE]multiple[SPACE]choice 

3860 


i. 

1 

O' 

o 

1 

1 


[2xSPACE]kan[SPACE]ook[SPACE]handi 

3870 


1 

| 

1 

1 


g[2xSPACE]zijn" 

3880 

rem sprite on screen + screencol. 

.fy 


1 

3550 

print"[SPACE]voor[SPACE]leerlingen 

3890 

poke 53280,11:poke 53281,0 

1 \ 



1 


.[SPACE]zij[SPACE]kunnen[SPACE]het 

3900 

poke 646,15:poke 53269,1 



o 

1 


[2xSPACE]pro-" 

3910 

poke 53248,57:poke 53249,119 

|. 

o 

1 

1 

3560 

print"[SPACE]gramma[SPACE]gebruike 

3920 

poke 53276,l:poke 53286,11 

I 


1 


n[SPACE]om[SPACE]te[SPACE]oefenen. 

3930 

poke 53285,12:poke 53287,15 

I 



1 


M 

3940 

poke 2040,13 

! 


o 

1 

3570 

print 

3950 

poke 53270,peek(53270)and 239 

! 

1 

o 

1 

1 

3580 

return 

3960 

return 

1 

j 


1 

3590 

print"[SPACE]multiple[SPACE]choice 

3970 


! 



I- 


[SPACE]bevat[SPACE]geen[SPACE]save 

3980 


1 



'4: 


[SPACE]of" 

3990 

rem ***** print intro ***** 

I 

o 

o 

1 ■ 

3600 

print"[SPACE]load[SPACE]optie[SPAC 

4000 

poke 53280,1:poke 53281,1 

1 

| 

1 


E]voor[2xSPACE]disk[SPACE]gebruike 

4010 

poke 650,128 

:r■ 



1 


rs[2xSPACE]maar" 

4020 

poke 53270,peek(53270)or 16 

i 



1 

3610 

print"[SPACE]als[SPACE]u[SPACE]een 

4030 

poke 646,14:poke 53283,6 



o 

I 


[SPACE]disk-drive[SPACE]bezit[SPAC 

4040 

poke 53282,14:poke 53269,0 

I 

o 

1 

1 


E]kunt[SPACE]u[SPACE]zelf" 

4050 

print"[SHIFT-CLR][5xCRSR-DOWN][2xS 

lil 


1 

3620 

print"[SPACE]zo'n[SPACE]routine[2x 


PACE]+++++++++++++++++++++++++++++ 




1 


SPACE]schrijven.[SPACE]het[SPACE]p 


++++++" 

i 


o 

1 

1 


rogramma" 

4060 

print"[2xSPACE]++[3lxSPACE]++" 

i 

o 

1 

1 

3630 

print"[SPACE]is[SPACE]zeer[SPACE]o 

4070 

print"[2xSPACE]++[4xSPACE]multiple 

1 

i 


1 


verzichtelijk[SPACE]door[SPACE]de[ 


[SPACE]choice[12xSPACE]++" 

i 



1 


SPACE]rem-re-" 

4080 

print"[2XSPACE]++[3lxSPACE]++" 

i 


o 

1 

3640 

print"[SPACE]gels.het[SPACE]is[SPA 

4090 

print"[2xSPACE]++[13xSPACE]door[SP 

i 

1 

o 

! 

1 


CE]vrij[SPACE]eenvoudig[SPACE]om[S 


ACE]obbe[SPACE]vermeij[SPACE]++" 

i 

i 


I 


PACE]multiple" 

4100 

print"[2xSPACE]++[31xSPACE]++" 

! 



1 

3650 

print"[SPACE]choice[SPACE]naar[SPA 

4110 

print"[2xSPACE]+++++++++++++++++++ 

1 



1 


CE]eigen[SPACE]wens[SPACE]aan[SPAC 


++++++++++++++++" 

1 


o 

! 

] 


E]te[SPACE]passen." 

4120 

print"[10xCRSR-DOWN][llxSPACE]typ[ 

1 

| 

o 

1 

3660 

return 


SPACE]spatie[SPACE]om[SPACE]verder 

1 


1 

3670 

print"[SPACE]er[SPACE]kan[SPACE]ma 


[SPACE]te[SPACE]gaan" 

1 



1 


ar[SPACE]een[SPACE]'vragen-file'[S 

4130 

gosub 4170 

1 


o 

i 

■ 1 


PACE]tegelijk" 

4140 

return 

1 

| 

o 

1 

I 

3680 

print"[SPACE]in[SPACE]de[2xSPACE]c 

4150 


1 


1 


omputer[SPACE]zijn.[SPACE]de[SPACE 

4160 


1 



I 


]optie[SPACE]'nieuwe" 

4170 

rem ***** wacht op spatie ***** 

1 


o 

1 

1 

3690 

print"[SPACE]file[SPACE]openen'[SP 

4180 

get a$ 

1 

I 

o 

1 

1 


ACE]vernietigt[SPACE]dus[SPACE]van 

4190 

if a$<>"[SPACE]"then goto 4180 

1 

| 


[ 


zelf[SPACE]de" 

4200 

return 

1 



1 ■ 

3700 

print"[SPACE]oude[SPACE]file[SPACE 

4210 


1 ' 





]![SPACE]![SPACE]!" 

4220 


1 


o 


3710 

print 

4230 

rem ****** menu maker *********** 

1 

| 

o 

r 

3720 

print”[SPACE]volgens[2xSPACE]mij[S 

4240 

rem * x=aantal mogelijkheden * 

1 


1 ■ 


PACE]is[2xSPACE]multiple[SPACE]cho 

4250 

rem *** q$ (1-5)="mogelijheden" ** 

1 



1 


ice[2xSPACE]vrij" 


c=gekozen mogelijkheid(1 

- 1 


o 

f: 

1 

3730 

print"[SPACE]eenvoudig[2xSPACE]te[ 


-5) ** 

1 

| 

o 

f3 


SPACE]gebruiken[SPACE]en[SPACE]ik[ 

4260 

gosub 3880 

1 


r 


SPACE]denk[SPACE]dat" 

4270 

poke 646,11 

1 



1' 

3740 

print"[SPACE]u[2xSPACE]binnen[SPAC 

4280 

print"[SHIFT-CLR][CRSR-DOWN][12xSP 

1 ' 


o 

1" 

1 


E]een[SPACE]half[SPACE]uur[2 xSPACE 


ACE]maak[SPACE]uw[SPACE]keuze";chr 

1 

I 

o 

1 

[■ 


]in[SPACE]staat[SPACE]zult" 


$(8);chr$(142) 

1 

r 


1 

3750 

print"[SPACE]zijn[SPACE]een[SPACE] 

4290 

print"[SPACE]<fl>=op[2xSPACE]<f7>= 

i 



1 


multiple[SPACE]choice[SPACE]test[S 


neer[2xSPACE]<return>=bevestig[CRS 

i 



1 


PACE]te[SPACE]maken" 


R-DOWN]" 

i 

1 

o 

o 

1' 

3760 

print"[13xSPACE]succes[SPACE].[SPA 

4300 

poke 646,1 

i 

i 

1 


CE].[SPACE]." 

4310 

print spc ( (40-len(t$))/2-1);t$;"[C 

i 



1 

3770 

return 


RSR-DOWN]" 

i 



1 

3780 


4320 

poke 646,15 

i 


o 

I 

1 

3790 


4330 

print spc((40-len(m$))/2-1) ;m$,"[ 

i 

i 

o 

1 

3800 

rem ******** int. sprite ******** 


CRSR-DOWN]" 

i 


1 

3810 

restore:for t=0to 63 

4340 

for t=l to X 

i 



i 

3820 

read a 

4350 

print"[CRSR-DOWN][8xSPACE]";q$(t) 

i 

1 


o 

1 

1 

1 





1 

i 

i 

o 


1 

1 
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o 
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o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


4360 nextt 
4370 C=1 
4380 get a$ 

4390 i£ a$="[F7]"then goto 4490 

4400 i£ a$="[Flj"then goto 4430 

4410 i£ a$=ehr$(13)then return 

4420 goto 4380 

4430 if c=l then goto 4380 

4440 c=e-l 

4450 for a=l to 16 

4460 poke 53249,peek(53249)-1 

4470 nexta 

4480 goto 4380 

4490 if c=x then goto 4380 

4500 c—c+1 

4510 for a=l to 16 

4520 poke 53249,peek(53249)+1 

4530 nexta 

4540 goto 4380 

4550 

4560 : 

4570 rem ******** vraag tonen ****■ 

4580 printqu$(z) 

4590 print"[2xCRSR-DOWN][SPACE]*[SPACE] 
",‘ al$ (z) 


4600 print"[2XCRSR-D0WN][SPACE]*[SPACE] 
"; a2$(z) 

4610 print"[2xCRSR-DOWN][SPACE]*[SPACE] 
";a3$(z) 

4620 print"[2xCRSR-DOWN][SPACE]*[SPACE] 
";a4$(Z) 

4630 print"[2xCRSR-D0WN][3xSPACE]goede[ 
SPACE]antwoord[SPACE]is[SPACE]nr.[ 
SPACE]:[SPACE]";ri(z) 

4640 return 
4650 : 

4660 ; 

4670 rem ****** sprite data ******* 
4680 dataO,32,0,0,40,0,0,42 
4690 dataO,170,166,128,234,165,160,245 
4700 data85,104,245,85,90,245,85,124 
4710 data255,245,240,255,247,192, 0, 63 
4720 dataO,0,60,0,0,48,0,0 
4730 dataO, 0, 0,0,0, 0,0,0 
4740 dataO, 0,0,0,0,0,0,0 
4750 dataO,0,0,0,0,0,0,0 
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Grafiek 128 


Kyrill Poelmans uit Oegstgeest maakte een pro¬ 
gramma om grafieken te maken op de commodo¬ 
re 128. Een diskdrive is nodig om de grafieken 
op te slaan en natuurlijk is een printer ideaal om 
ze uit te kunnen printen De mogelijkheden van 
het programma zijn o.a. staaf grafiek, 3d staaf 
grafiek, taart grafiek, sinus grafiek, sinus sprite, 
save/laad/scratch/print/bekijk-grafiek. Eigenlijk te 
veel om op te noemen. Er zit een kleine handlei¬ 
ding bij waarin alles wordt uitgelegd. De delen 
van het programma die in eigen programma ge¬ 
bruikt kunnen worden staan achter in de handlei¬ 
ding. De print-routine is geschreven voor de Ge¬ 
neral Electric THP 8100, maar werkt ook op de 
MPS 801/803. Als u een andere printer heeft kunt 
u misschien wat kleine wijzigingen aanbrengen. 
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rem ******************************* 
rem********grafiek maker 128****** 
rem***************door************ 
rem**********kyrill poelmans****** 
rem********voor commodore info**** 
rem ******************************* 
fast:a=0:b=0;f=0:p=0;dima(32):dimb 
(8):dimf(8):dimd(13) 
graphicl,1:circle,11,11,10,10, , , ,6 
0:shapea$,1,1,21,21:sprsavea$,1:re 
m sprite 1= 6-hoek 
printchr$(27)+"m"+chr$(27)+"e" 
trap820:colorO,1:color4,1:color5, 8 
:graphicO,1 

char,11,1,"grafiek[SPACE]maker[SPA 
CE]cl28":char,18,3,"menu":color5,4 
char,5,6,"1.[SPACE]staafgrafiek[SP 
ACE] (1-32[SPACE]staven)":color5, 5 
char,5,8,"2.[SPACE]3d[SPACE]staafg 
rafiek[SPACE](1-12[SPACE]staven)": 
color5,15 

char,5,10,"3.[SPACE]taart-grafiek[ 
SPACE](1-10[SPACE]segmenten)":colo 
r5, 7 

char,5,12,"4.[SPACE]sinus-grafiek" 
:color5,9 

Char,5,14,"5.[SPACE]sinus[SPACE]sp 
rite":color5,2 

char,5,16,"6.[SPACE]save[SPACE]gra 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 


300 

310 

320 

330 


340 

350 

360 

370 

380 

390 


400 

410 

420 

430 


fiek":color5,6 

char,5,18,"7.[SPACE]laad[SPACE]gra 
fiek":color5,10 

char,5,20,"8.[SPACE]bekijk/print[S 

PACE]grafiek":color5,16 

char,5,22,"9.[SPACE]scratch[SPACE] 

grafiek":color5,3 

char,13,24,"maak[SPACE]uw[SPACE]ke 

uze!":slow 

geta 

onagoto250,360,510,620,680,830, 860 

,740,920 

goto220 

rem**staaf grafiek 1** 
color5,8:graphicO,1:char,12,1,"sta 
af[SPACE]grafiek[SPACE]1":print 
1=0 : a=0 : k=0 : inpuftitel" ; w$ : input" 
aantal[SPACE]staven[SPACE](1-32)"; 
h:ifh>32then270 

forl=ltoh:graphicO,1:print"waarde[ 
SPACE]staaf[SPACE]";1;"[SPACE]is"; 
inputa(1):ifa(1) <0ora (1)>175thenpr 
int"dat[SPACE]kan[SPACE]helaas[SPA 
CE]niet":goto290:elsenext:graphicl 
,1:char,0,0, w$ 
draw, 25,10to25,190to315,190 
fori=10tol90stepl0:draw,23,ito27,i 
:nexti 

fori=33to315step9:draw,i,188toi,19 
2:nexti 

forl=ltoh:fork=atoa+6:draw,30+(k+1 
) , 186to30+(k+1),186-a(1):nextk:a=a 
+9:nexti 

getkeya$:gotolOO 

rem*** 3d staaf grafiek *** 

max=0 :color5,8:graphicO,1:char,12, 

1,"3d[SPACE]staaf[SPACE]grafiek" 

print:input"titel";u$:input"hoevee 

1[SPACE]staven(1-12)";d 

ifd<lord>13thenl00 

fori=ltod:print"hoogte[SPACE]staaf 
”;i;:inputa(i):ifa(i)>maxthenmax=a 

(i) 

nexti:print"kloppen[SPACE]de[SPACE 
]gegevens[SPACE](j/n)?":getkeya$ 
ifa$<>"j"then360 

colorO,1:color4,1:graphicl,1:char, 
0,0,u$ 

draw,2,10to2,180to319,180:forw=175 
tol0step-5:draw,0,wto4,w:nextw 
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440 forq=17to315step26:draw,q,178toq, 1 
82:nextq 

450 char,2,24,"j[2xSPACE]£[2 x SPACE]m[2 

stSPAGE]a[2xSPACE]m[3xSPACE]j[2xSPA 
CE]j[3XSPACE]a[2XSPACE]S[ZxSPACE]o 
[2xSPACE]n[2 xSPACE] d " 

460 fori=ltod:a(i)=180-a(i)/max*165 
470 box,1*26-20,a(i),1*26, 175,0, 1 
480 draw,i*26-20,a(1)toi*26-14, a(1)-4t 

oi*26+4,a(1)-4toi*26+4,169toi*26,175 
490 draw,1*26,a(i)tol*26+4, a(1)-4 

500 nexti:getkeya$:gotolOO 
510 rem*** taart grafiek *** 

520 color5,8:graphicO,1:char,14,1, "taa 
rt[SPACE]grafiek" 

530 print:input"titel";y$:p=0:n%=0:inp 

ut"[CRSR-DOWN]hoeveel[SPACE]segmen 
ten";n%:graphicO,1 

540 forx=lton%:print"waarde[SPACE]segm 
ent";x;:inputp(x) 

550 t=t+p(x):nextx:forx=lton% 

560 p (x)=int(p(x)/(t/360)) :next 
570 rem** teken grafiek ** 

580 graphicl,1:colorl,2:char,0,0, y$:x= 
160:y=100:r=90 
590 forg=lton%:ea=ea+p(g) 

600 printba,ea:circlel, x,y,r, , ba, ea, 0,1 

610 xr=rdot(0):yr=rdot(1):drawl,xr,yrt 

ox,y:next:getkeya$:gotolOO 
620 rem ** sinus-grafiek ** 

630 color5,8:graphicO,1:char, 13,1, "sin 
us[SPACE]grafiek" 

640 print:input"sinus[SPACE]waarde”;g 
650 print:inpuf'hoogte[SPACE](1-99)";s 
:ifs>99then 650 

660 graphicl,lrdraw,0,100to320,100:for 
t=lto320:a=int(s*sin(t/g)):drawl,t 
,100-a:next 

670 getkeya$:gotolOO 

680 rem** sprite sinus ** 

690 color5,8:graphic0,1:char,14,1, "sin 
us[SPACE]sprite" 

700 graphicO,1:print:input"sinus[SPACE 
]waarde";g 

710 print:input"hoogte[SPACE](1-99)";s 
:ifs>99then 710 


720 graphicl,1:fort=lto320:a=int(s*cos 
((t/g))) :movesprl,t,141-a:spritel, 
1,7:next 

730 getkeya$:spritel,0,1:gotolOO 

740 rem ** print grafiek ** 

750 print"[SHIFT-CLR]u[SPACE]ziet[SPAC 
E]zometeen[SPACEj de[SPACE]grafiek[ 
SPACE]en[SPACE]dan[SPACE]is[SPACE] 

'p'[SPACE]voor[SPACE]printen[SPACE 
]en[SPACE]elke[SPACE]andere[SPACE] 
toets[SPACE]voor[SPACE]menu" 

760 char,0,24,"druk[SPACE]nu[SPACE]een 
[SPACE]toets",1:getkeya$ 

770 graphicl:getkeya$:ifa$<>"p"then 100 
780 open4,4:fort=312to0step-8 
790 drawl,t,Otot,319:shapep$,t,0, t+7,199 
800 p$=left$(p$,200):print#4,chr$(8)+p$ 
810 next:print#4,chr$(15):close4:gotolOO 
820 spritel,0,1:openl5,8,15,"i":closel 
5:gotolOO 

830 scnclrichar,14,1,"save[SPACE]grafi 

ek":char,1,3,"geef[SPACE]naam[SPAC 
E]max[SPACE]13[SPACE]tekens" 

840 inputg$ 

850 bsave"gm."+g$,p7168topl6384:gotolOO 

860 scnclr:char,12,1,"laad[SPACE]grafi 
ek" 

870 char,1,3,"geef[SPACE]naam[SPACE]of 
[SPACE]$[SPACE]voor[SPACE]dir" 

880 inputf$ 

890 iff$="$"then 900:else 910 
900 directory"gm.*=p":getkeya$:goto860 
910 bload"gm."+f$, p7168:gotolOO 
920 scnclr:char,14,1,"scratch[SPACE]gr 
afiek" 

930 char,1,3,"disk[SPACE]in[SPACE]driv 
e[SPACE]en[SPACE]toets":getkeya$:p 
rint 

940 directory"gm.*=p" 

950 print"welke[SPACE]grafiek[SPACE]mo 

et[SPACE]gescratched[SPACE]worden" 

:inputm$ 

960 scratch"gm."+m$:gotolOO 

EINDE LISTING 128-graf _ 


REGEL 10 

35 

REGEL 

240 

29 

REGEL 

470 

137 

REGEL 

700 

9 

REGEL' 

930 

118 

REGEL 

20 

93 

REGEL 

250 

208 

REGEL 

480 

179 

REGEL 

710 

139 

REGEL 

940 

171 

REGEL 

30 

175 

REGEL 

260 

7 

REGEL 

490 

58 

REGEL 

720 

250 

REGEL 

950 

159 

REGEL 

40 

227 

REGEL 

270 

172 

REGEL 

500 

88 

REGEL 

730 

124 

REGEL 

960 

10 

REGEL- 

50 

28 

REGEL 

280 

88 

REGEL 

510 

0 

REGEL 

740 

189 




REGEL 

60 

35 

REGEL 

290 

232 

REGEL 

520 

18 

REGEL 

750 

93 




REGEL 

70 

54 ' 

REGEL 

300 

217 

REGEL 

530 

230 

REGEL 

760 

20 




REGEL 

80 

215 

REGEL 

310 

209 

REGEL 

540 

55 

REGEL 

770 

162 




REGEL 

90 

179 

REGEL 

320 

28 

REGEL 

550' 

30 

REGEL 

780 

234 




REGEL 

100 

48 

REGEL 

330 

208 

REGEL 

560 

254 

REGEL 

790 

81 




REGEL 

110 

235 

REGEL 

340 

83 

REGEL 

570 

167 

REGEL 

800 

17 




REGEL 

120 

118 

REGEL 

350 

106 

REGEL 

580 

239 

REGEL 

810 

148 




REGEL 

130 

31 

REGEL 

360 

124 

REGEL 

590 

76 

REGEL 

820 

113 




REGEL 

140 

176 

REGEL 

370 

63 

REGEL 

600 

232 

REGEL 

830 

22 




REGEL 

150 

21 

REGEL 

380 

244 

REGEL 

610 

93 

REGEL 

840 

240 




REGEL 

160 

194 

REGEL 

390 

139 

REGEL 

620 

239 

REGEL 

850 

201 




REGEL 

170 

136 

REGEL 

400 

104 

REGEL 

630 

39 

REGEL 

860 

105 




REGEL 

180 

153 

REGEL 

410 

34 

REGEL 

640 

100 

REGEL 

870 

30 




REGEL 

190 

243 

REGEL 

420 

67 

REGEL 

650 

142 

REGEL 

88 0 

239 




REGEL 

200 

94 

REGEL 

430 

204 

• REGEL 

660 

132 

REGEL 

890 

248 




REGEL 

210 

59 

REGEL 

440 

107 

REGEL 

670 

83 

REGEL 

900 

69 




REGEL 

220 

226 

REGEL 

450 

180 

REGEL 

680 

160 

REGEL 

910 

207 




REGEL 

230 

38 

REGEL 

460 

86 

REGEL 

690 

6 

REGEL 

920 

97 
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lj t: 

O I 
o 

o 

o 

o 

o 

o 

o 

o 
o 

o 

o 

o 
o 

o 

o 

o 

o 

o 


PRINT OUT C-1 6 met o.a. Vijftigen 


Checksum cl 6 

10 

rem ****************************** 

20 

rem syntax.checksum 

30 

ram voor c-16 £ plus/4 

40 

rem 


50 

zrem s 

yntax testen met 'sys 1536' 

60 

rem 


70 

rem v 

.851128.16 jan bodzinga 

80 

rem ****************************** 

90 

i=1536 :rem beginadres 

100 

reada 

:ifa>=0then pokei,a:i=i+l:got 


olOO 


110 

print"data[SPACE]is[SPACE]weggezet" 

120 

print 

" cheksum[SPACE]printen[SPACE] 


met[SPACE]'sys[SPACE]1536' 

130 

end 


200 

data 

165, 43,166, 44,133 

210 

data 

31,134, 32,169,147 

220 

data 

32,210,255,160, 0 

230 

data 

240, 3, 32, 73, 6 

240 

data 

32, 73, 6,208, 1 

250 

data 

96, 72,152, 32,131 

260 

data 

6,168,104,234, 32 

270 

data 

81, 6, 32, 73, 6 

280 

data 

240, 12,201, 32,240 

290 

data 

247, 24,101,252,133 

300 

data 

252, 76, 37, 6,166 

310 

data 

252,169, 0,132,253 

320 

data 

32, 95,164,169, 13 

330 

data 

32,210,255,164,253 

340 

data 

76, 17, 6,200,208 

350 

data 

2,230, 32,177, 31 

C-16 slang 


1 

2 

3 

4 

5 

6 

10 

20 


30 


40 


50 


60 


rem ruimteslang ii / cl6 
rem 

rem jos van oijen 
rem 

rem boven-leeuwen 
rem 

colorO,l:color4,1:scnclr:printchr$ 
(8)chr$(14):vol8:q=3292:n=l 
char,8,0,"[CTRL-2]Jos[SPACE]van[SP 
ACE]Oijen[SPACE]presenteert":char, 
9,2, "[CTRL-7]***[SPACE]RUIMTE[SPA 
CE]SLANG[SPACE]II[SPACE]***" 
fory=lto7:colorl,8,y:print"[HOME][ 
5xCRSR-DOWN]Na[SPACE]enkele[SPACE] 
j aren[SPACE]door[SPACE]het[SPACE]s 
terrenveld[SPACE]te" 

prinf'hebben[SPACE]gezworven,[SPAC 
E]is[SPACE]de[SPACE]ruimteslang[SP 
ACE]nu" 

print"aangekomen[SPACE]in[SPACE]ee 
n[SPACE]nieuw[SPACE]universum.[CRS 
R-DOWN]" 

print"Door[SPACE]deze[SPACE]ervar1 
ng[SPACE]heeft[SPACE]hij[SPACE]nu[ 
SPACE]een" 


9 

360 

data 

96,162, 0,189,123 

1 . 

! 

1 

370 

data 

6,240, 6, 32,210 


380 

data 

255,232,208,245, 32 


390 

data 

73, 6,170, 32, 73 

1 

1 

400 

data 

6,132,253, 32, 95 


410 

data 

164,162, 3,169, 32 

1 

420 

data 

32,210,255,202,208 

1 w 

430 

data 

250,169, 0,133,252 

i 

440 

data 

164,253, 96, 82, 69 

' 1' 

450 

data 

71, 69, 76, 32, 0 


460 

data 

0, 72,138, 72, 32 

i O 

470 

data 

225,255,240,251,104 

1 

480 

data 

170,104, 96, -1 

1 


EINDE LISTING checks16 


Checksum Checksum C-16 


REGEL 

10 

249 

REGEL 280 

186 

REGEL 

20 

.247 • 

REGEL 290 

24 8 

REGEL 

30 

121 

REGEL 300 

, 118 

REGEL 

40 

143 

REGEL 310 

204 

REGEL 

50 

75 

REGEL 320 

165 

REGEL 

60 

143 

REGEL 330 

252 

REGEL 

7 0 

8 

REGEL 340 

106 

REGEL 

80 

,249 

REGEL 350 

98 

REGEL 

90 

103 

REGEL 360 

163 

REGEL 

100 

2 

REGEL 370 

45 

REGEL 

110 

245 

REGEL 380 

0 

REGEL 

120 . 

237 

REGEL 390 

58 

REGEL 

130 

128 

REGEL 400 

108 

REGEL 

200 

210 

REGEL 410 

159 

REGEL 

210 

208 

REGEL 420 

.245 

REGEL 

220 

142 

REGEL 430 

202 

REGEL 

230 

1 

REGEL 440 

176 

REGEL 

240 

3 

REGEL 450 

12 

REGEL 

2 5.0 

157 

REGEL 460 

54 

REGEL 

260 

155 

REGEL 470 

43 

REGEL 

270 

215 

REGEL 480 

1 


Van Jos van Oijen ontvingen wij het programma 
Ruimteslang. De bedoeling van dit spelletje is dat 
je de slang door een veld probeert te loodsen dat 
doorsneden is door een onderbroken lijn. Het zal 
blijken dat dit veel moeilijker is dan het lijkt 


70 print"aantal[SPACE]extra[SPACE]lev 

ens[SPACE](3)[SPACE]gekregen.[CRSR 
-DOWN]" 

80 print"Bots[SPACE]niet[SPACE]tegen[ 

SPACE]de[SPACE]lijn!!!!!!!!!!!!!!! 

! " 

90 colorl,3,7-y:char,3,15,"[CTRL-9]<[ 

CTRL-0 ][SPACE]=[SPACE]links[5xSPAC 
E]cl989[5xSPACE][CTRL-9]> [CTRL-0] [ 
SPACE] = [SPACE]rechts":colorl, 11, y 
100 char,6,19,"Zullen[SPACE]we[SPACE]n 

u[SPACE]weer[SPACE]beginnen?" 

110 char,9,21,"Druk[SPACE]dan[SPACE]op 

[SPACE]een[SPACE]toets!":nexty 
120 getg$:ifg$=""then30 
130 gosub450:scnclr:char, 9, 12, "[CTRL-8 
][CTRL-9]J [CTRL-0 Joystick[SPACE]1[ 
SPACE]of[SPACE][CTRL-9]K[CTRL-0]ey 
board?":e$="d":f$="6" 

140 getg$ : ifg$<>" j "andg$O"k"thenl40 
150 ifg$="k"thene$=" , ":f$="." 

160 gosub450:colorO, 6,2 

170 printchr$(142)"[SHIFT-CLR][CTRL-9] 

[CTRL-1][SPACE]ruimteslang[SPACE]i 
i[2xSPACE]S[3xSPACE]level"n"[CRSR- 
LEFT][SPACE]score[6xSPACE]":gosub4 
40 

180 fora=3112to4032step40:pokea, 160:po 

kea+39,160:pokea-1024,0:pokea-985, 
0:next 

190 print"[CTRL-2]":poke2022,1:poke202 

3,1:poke2024,38 

200 scnclr:z=l:x=l:1$="N":r$="M":z$=r$ 

210 x=x+z:ifx=38thenz=-l:z$=l$ 


O 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


o 


! O 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


220 ifx=lthenz=l:z$=r$ 

230 t=t+l:s=s+l:s$=str$(s):fore=2tolen 
(s$):poke3105+e,asc(mid$(s$,e,1))+ 
128:next 

240 ift=500then330 

250 ifrnd(l)<.lthenprint:goto270 

260 printtab(x)z$ 

270 geta$:ifa$=e$thenq=q-l 
280 ifa$=f$thenq=q+l 

290 p=peek(q):pl=peek(q-1):p2=peek(q+l 
):p3=peek(q+40) 

300 ifp=160thenq=qq:goto320 
310 ifp=77orp=78or(pl<>32andp3<>32)or( 
p2<>32andp3<>32)then340 
320 pokeq,81:qq=q:goto210 
330 char,13,12,"[CTRL-4]gefeliciteerd! 

":t=0:q=q+160:n=n+l:gosub380:gosub 
370:gotol60 

340 sound3,300,60:lv=lv-l:gosub440:pok 
e65299,60:forb=lto500 rnextb 
350 poke65299,208:pokeq,42:char, 16,12, 

"[CTRL-1]jammer!!":iflv=-3then460 
360 gosub370:gotol90 

370 char, 9,16, "[COM-4]druk[SPACE]op[S 
PACE]de[SPACE]spatiebalk!":getkey 
g$:ifg$="[SPACE]"thengosub450:retu 
rn:else370 

380 restore:fortt=lto44:reada,b:b=b/l. 

5 

390 i£a=-lthenfora=ltol50:nexta,tt 
400 f=(111840.45/(1024-a))/4:aa=1024-( 

111840.45/f) 

410 soundl,a,b:sound2,aa,b-1:next 
420 ifq=4092thenchar,9,14,"[CTRL-4]je 
[SPACE]hebt[SPACE]alle s[SPACE]geha 
ald!":goto490 
430 return 

440 poke3091,179+lv:return 

450 fora=1020to800step-10:soundl,a, 2:s 

oundl,a-114,3:next:return 
460 char,11,14,"[CTRL-4]je[SPACE]leve 
ns[SPACE]zijn[SPACE]op!" 

470 y=-l 

480 y=y+l:ify>7then470:elsecolorl,3,y 
490 char,6,16,"dit[SPACE]is[SPACE]het[ 
SPACE]einde[SPACE]van[SPACE]de[SPA 
CE]reis":char,10,18,"nog[SPACE]een 
[SPACE]keer[SPACE](j/n)?" 

500 getg$ : ifg$<>" j "andg$o"n"then480 

510 ifg$="j"thenrun:elsesys62116 
520 data785,15,-1,0, 834,15, 834,15, 834, 

15.864.45.864.15, -1,0,904,15,904,1 

5.904.15 

530 data929,45,929,15,-1,0, 904,15, 904, 

15.904.15.864.45.864.15, -1,0,834,1 

5.834.15 

540 data834,15,929,30,929,15,917,15,-1 
,0,897,15,897,15,897,15,864,45,864 
,15,-1,0 

550 data845,15,845,15,845,15,845,15,91 
7,30,929,15,904,30,904,30,904,30,9 
04,30,904,60 

EINDE LISTING 16-slang _ 


Checksum C-16 Slang 


REGEL 

1 

69 

REGEL 

270 

34 

REGEL 

2 

143 

REGEL 

280 

226 

REGEL 

3 

213 

REGEL 

290 

161 

REGEL 

4 

110 ' 

REGEL 

300 

200 

REGEL 

5 

174 

REGEL 

310' 

231 

REGEL 

6 

143 

REGEL 

320 

178 

REGEL 

10 

173 

REGEL 

330 

154 

REGEL 

20 

119. ■ 

REGEL 

340 

82 

REGEL 

30 

129 

REGEL 

350 

14 6 

REGEL 

40 

135 

REGEL 

360 

132 

REGEL 

50 

183 

REGEL 

370 

231 

REGEL 

60 

217 

REGEL 

380 

255 • 

REGEL 

70 

234 

REGEL 

390 

177 

REGEL 

80 

254 

REGEL 

400 

139 

REGEL 

90 

98 

REGEL 

410 

224 

REGEL 

100 

153 

REGEL 

420 

121 

REGEL 

110 

9 

REGEL 

430' 

142 

REGEL 

120 

60 

REGEL 

440 

69 

REGEL 

130 

31 

REGEL 

450 

14 

REGEL 

140 

119 

REGEL 

460 

107 

REGEL 

150 

49 

REGEL 

4 70 

231 

REGEL 

160 

55 

REGEL 

480 

146 

REGEL 

170 

243 

REGEL 

490 

143 

REGEL 

180 

208 

REGEL 

500 

129 

REGEL 

190 

251 

REGEL 

510 

20 

REGEL 

200 

149 

REGEL 

520 

112 

REGEL 

210 

9 

REGEL 

530 

120 

REGEL 

220 

138 

REGEL 

540 

149 

REGEL 

230 

173 

REGEL 

550 

76 

REGEL 

240 

99 




REGEL 

250 

110 




REGEL 

■2 60 

59 




Vijftigen 


Vijftigen is een kaartspel waarbij inzicht en geluk 
een grote rol spelen. De spelregels staan in het 
programma vermeld en zijn makkelijk te leren. De 
maker van dit programma is Jos van Oijen uit Bo- 
ven-Leeuwen. 

1 rem vijftigen / cl6 

2 rem 

3 rem jos van oijen 

4 rem 

5 rem boven-leeuwen 

6 rem 

10 scnclr:color4,1:colorO,1:printchr$ 

(142)chr$(8)chr$(27)+"m":vol8:gosu 
bll20 

20 char,3,2,"[CTRL-6]jos[SPACE]van[SP 

ACE]oijen[SPACE]presenteert[SPACE] 

:":poke2023,3:print"[2xCRSR-DOWN]" 
30 kt$="UCCCI[CRSR-DOWN][5xCRSR-LEFT] 

B[3xSPACE]B[CRSR-DOWN][5xCRSR-LEFT 
]B[3XSPACE]B[CRSR-DOWN][5xCRSR-LEF 
T]B[3XSPACE]B[CRSR-DOWN][5xCRSR-LE 
FT]B[3xSPACE]B[CRSR-DOWN][5xCRSR-L 
EFT]B[3XSPACE]B[CRSR-DOWN][5xCRSR- 
LEFT]JCCCK" 

40 colorl,7,7:print"O[8xCOM-Y]P[6xSPA 

CE]N[8xCOM-Y]M" 

50 print"[COM-H][CTRL-9][8xSPACE][CTR 

L 0][COM-N][5xSPACE]N[SPACE][CTRL- 
9][SHIFT-|][6XSPACE][COM-*][2xCTRL 
0][SPACE]M" 

60 colorl,7,6:print"[COM-H][CTRL-9][S 

PACE][CTRL-0][SPACE][6xCOM-P][SHIF 
T '][SxSPACE][COM-H][CTRL-9][SHIFT 
|][CTRL-0][SHIFT-|][6XSPACE][COM- 
*][CTRL-9][COM-*][CTRL-0][COM-N]" 

70 print"[COM-H][CTRL-9][SPACE][CTRL- 

0][SPACE][COM-H][llxSPACE][COM-H][ 
CTRL-9][SPACE][CTRL-0][SPACE]N[4xC 
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- PRINT OUT - PRINT OUT - PRINT OUT - PRINT OUT - PRINT 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


OM Y]M[SPACE][CTRL-9][SPACE][CTRL- 

0][COM-N]" 

80 eolorl,7,5:print"[COM-H][CTRL-9][S 

PACE] [CTRL-0] [SPACE][COM-H][llxSPA 
CE][COM-H][CTRL-9][SPACE] [CTRL-0] [ 
SPACE][COM-H][4xSPACE][COM-N][SPAC 
E][CTRL-9][SPACE] [CTRL-0] [COM-N]" 
90 print"[COM-H][CTRL-9][SPACE][CTRL- 

O] [SPACE]L[4xCOM-P][7xSPACE][COM-H 
][CTRL-9][SPACE] [CTRL-0] [SPACE][CO 
M H][4xSPACE][COM-N][SPACE][CTRL-9 
][SPACE] [CTRL-0] [COM-N]" 

100 eolorl,7,4:print"[COM-H][CTRL-9][S 

PACE] [CTRL-0] [6xSPACE]M[6xSPACE][C 
OM H][CTRL-9][SPACE] [CTRL-0] [SPACE 
][COM-H][4XSPACE][COM-N][SPACE][CT 
RL 9][SPACE] [CTRL-0] [COM-N]" 

110 print"[COM-H][CTRL-9][6xSPACE][COM 
*] [CTRL-0] [SPACE]M[5xSPACE][COM-H 
][CTRL-9][SPACE] [CTRL-0] [SPACE][CO 
M H][4xSPACE][COM-N][SPACE][CTRL-9 
][SPACE] [CTRL-0] [COM-N]" 

120 eolorl,7,3:print”L[5xCOM-P][SPACE] 

[COM-*][CTRL-9][COM-*] [CTRL-0] [COM 
N][5xSPACE][COM-H][CTRL-9][SPACE] 
[CTRL-0] [SPACE][COM-H][4xSPACE][CO 
M N][SPACE][CTRL-9][SPACE] [CTRL-0] 
[COM-N]" 

130 print"[6xSPACE]M[SPACE][CTRL-9][SP 

ACE] [CTRL-0] [COM-N][5xSPACE][COM-H 
][CTRL-9][SPACE] [CTRL-0] [SPACE][CO 
M H][4XSPACE][COM-N][SPACE][CTRL-9 
][SPACE] [CTRL-0] [COM-N]" 

140 eolorl,7,2:print"[6xSPACE][COM-N][ 

SPACE][CTRL-9][SPACE] [CTRL-0] [COM- 
N][5xSPACE][COM-H][CTRL-9][SPACE][ 
CTRL-0] [SPACE][COM-H][4xSPACE][COM 
N][SPACE][CTRL-9][SPACE] [CTRL-0] [ 
COM-N]" 

150 print"[6xSPACE][COM-N][SPACE][CTRL 

9][SPACE] [CTRL-0] [COM-N][5xSPACE] 
[COM-H][CTRL-9][SPACE] [CTRL-0] [SPA 
CE][COM-H][4xSPACE][COM-N][SPACE][ 
CTRL-9][SPACE] [CTRL-0] [COM-N]" 

160 eolorl,7,1:print"[6xCOM-P]N[SPACE] 

[CTRL-9][SPACE] [CTRL-0] [COM-N][5xS 
PACE][COM-H][CTRL-9][SPACE] [CTRL-0 
][SPACE]M[4xCOM-P]N[SPACE][CTRL-9] 
[SPACE] [CTRL-0] [COM-N]" 

170 print"[COM-H][6xSPACE][CTRL-9][SHI 
FT |] [CTRL-0] [SHIFT-|][COM-N][5xSP 
ACE][COM-H][COM-*][CTRL-9][COM-*][ 
CTRL-0] [öxSPACE][CTRL-9][SHIFT-|][ 
CTRL-0] [SHIFT-|][COM-N]" 

180 eolorl,7,0:print"[COM-H][CTRL-9][6 

xSPACE] [CTRL-0] [SHIFT-|][SPACE]N[5 
xSPACE]M[SPACE][COM-*][CTRL-9][6xS 
PACE] [CTRL-0] [SHIFT-|][SPACE]N" 

190 print"L[7xCOM-P]N[7xSPACE]M[8xCOM- 

P] N":char,33,17,"[CTRL-2]1989" 

200 char,31,10,"[CTRL-9][SPACE] [CTRL-0 

][CRSR-DOWN][CRSR-LEFT]N":char,33, 
11,"UDI[COM-QJDI":char, 33,12, "[COM 

Q]CKB[SPACE]B":char,33,13,"JFKB[S 
PACE]B" 

210 dimd$(38):q=6:a=rnd(-ti):a$="[SPAC 

E]0[SPACE]8[SPACE]910[SPACE]1[SPAC 
E]2[SPACE]3[SPACE]a":data"S", "Z", " 


A", "X" 

220 fora=lto4:reads$:forb=ltol6step2:e 
$=mid$(a$,b,2):c=c+l:d$(e)=s$+c$:n 
extb,a 

230 fora=lto32;x=32*rnd(1)+1:t$=d$(a): 

d$(a)=d$(x):d$(x)=t$:nexta 
240 £ora=33to38:d$(a)="-l":next:fora=l 

to3:c$(a)=d$(a):next:fora=4to6:s$( 
a-3)=d$(a):next 

250 fora=800tol000stepl5:soundl, a, 1:ne 
xt 

260 char,11,22,"druk[SPACE]op[SPACE]e 
en[SPACE]toets!":getkeyg$:gosubll 
10:eolorl,1:colorO ,2,4:senclr 
270 ifpeek(213)=lthen290 
280 char,11,12,"[COM-2]instructies[SPA 
CE](j/n)?[CTRL-1]":getkeyg$:gosubl 
110:ifg$="j"thengosubll50 
290 char,0,0,"[CTRL-9]":gosubll20:char 
,14,11, "[CTRL-0] [COM-7]1[4xSPACE]2 
[4xSPACE]3[CTRL-1]" 

300 char,25,5,"[CTRL-6][COM-A]CCCCCCCC 
CCC[COM-S][CRSR-DOWN][13xCRSR-LEFT 
]B[1lxCRSR-RIGHT]B[CRSR-DOWN][13xC 
RSR-LEFT][COM-Z]CCCCCCCCCCC[COM-XJ 

310 char,2,14,"[COM-A]CCCCCC[COM-S][CR 
SR-DOWN][8xCRSR-LEFT]B[6xCRSR-RIGH 
T]B[CRSR-DOWN][8xCRSR-LEFT][COM-Z] 
CCCCCC[COM-X]":gosubl020:goto570 
320 rem kaart printen 

330 char,p,z,kt$:kl$=left$(k$,1):ifkl$ 

="S"orkl$="Z"thenkt=3:elsekt=l 
340 ifkl"thenreturn 

350 kr$=right$(k$,2):ifkr$="10"then410 
360 kr$=right$(kr$, 1) 

370 ifkr$="0"thenkr$="7" 

380 ifkr$="1"thenkr$="b" 

390 ifkr$="2"thenkr$="v" 

400 ifkr$="3"thenkr$="h" 

410 char,p+1,z+1,kr$:eolorl, kt, 3:char, 

p+3,z+1,kl$ 

420 char,p+1,z+5,kl$:eolorl, l:ifkr$<>" 

10"thenchar,p+2,z+5,"[SPACE]"+kr$: 
elsechar,p+2,z+5, kr$ 

430 return 
440 rem teller 

450 kr$=right$(k$,2):tt=val(kr$):ifkr$ 
O" [SPACE] a"then510 

460 char,2,2,"[CTRL-2][CTRL-9]1 [CTRL-0 
][SPACE]een[SPACE]of[SPACE][CTRL-9 
]2 [CTRL-0] [SPACE]elf?[CTRL-1]" 

470 getkeyg$ : ifg$0"l"andg$0"2"then47 

0 

480 gosubll10:char,2,2,"[15xSPACE]" 

490 ifg$="l"thentt=l:elsett=ll 

500 goto550 

510 iftt<>10then550 

520 char,2,2,"[CTRL-2][CTRL-9]+ [CTRL-0 
]tien[SPACE]of[SPACE][CTRL-9]-[CTR 
L 0]tien?[CTRL-1]" 

530 tt=10:getkeyg$:ifg$<>"+"andg$<>"-" 

then530 

540 gosubl110:char,2,2,"[15xSPACE]":if 

g$="-"thentt=-10:ift-10<0then520 
550 t=t+tt:char,26,6,"aantal:"+str$(t) 

+"[SPACE]":return 
560 rem begin 
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570 ifpeek(212)=lthen750 
580 ifpeek(212)=2then620 
590 char,3,2,"wie[SPACE]begint[SPACE]e 
r,[SPACE]de[SPACE][CTRL-9]c [CTRL-0 
]omputer[SPACE]of[SPACE][CTRL-9]j[ 
CTRL-0] ij?" 

600 getkeyg$:ifg$<>"c"andg$<>"j"then60 

0 

610 gosublllO:char,3,2,"[34xSPACE]":if 
g$="c"then750 

620 z=12:forp=12to22step5:k$=s$((p-7)/ 

5):gosub330:next:v=l 
630 rem speler aan beurt 
640 ifright$(s$(1),2)=right$(s$(2) , 2)a 
ndright$(s$(1),2)=right$(s$(3),2)t 
hen990 

650 char,3,15,"kaart?" 

660 getkeyg$:k=val(g$):ifk<lork>3then6 
60 

670 gosublllO:ifs$(k)="-l"then660 
680 k$=s$(k):p=17:z=3:gosub330:p=k*5+7 

:forz=13tol7:char,p+1,z,"[3xSPACE] 

":next 

690 vl=0 :gosub450:ifq<33thenq=q+l 
700 s$(k)=d$(q):z=12:k$=s$(k):gosub330 
710 ift>50then950 
720 char,3,15,"[6xSPACE]" 

730 rem 

740 rem computer aan beurt 
750 fora=0tol000 :nexta 
760 rem drie dezelfde 

770 ifright$(c$(1),2)=right$(c$(2),2)a 
ndright$(c$(1),2)=right$(c$(3),2)t 
henl090 

780 rem sorteren 

790 fora=lto3:kr$=right$(c$(a),2):tt=v 
al(kr$):ifkr$<>"[SPACE]a"then810 
800 ift+ll<51thentt=ll:elsett=l 
810 v(a)=tt:nexta 

820 fora=lto3:e(a)=-2:b$(a)="":next:h= 

0 

830 fora=lto3:forb=lto3:ifv(b)>e(a)the 
ne(a)=v(b):h=b:b$(a)=c$(b) 

840 nextb:v (h) =-2:nexta:fora=lto3:v(a) 
=e (a) : c$ (a) =b$ (a) : next 

850 rem weggooien 

860 fora=3tolstep-l:ifv(a)+t<51thenk=a 
870 next 

880 ifv(k)=10thenk=k+l:goto880 
890 ifc$(3)="-l"thenk=2 
900 ifc$ (3)="-l"andc$(2)="-l"thenk=l 
910 ifv(k)+t>50andv(1)=1 0thenk=l :v(1)= 

-10 

920 k$=c$(k):p=17:z=3:gosub330:tt=v(k) 

:gosub550:ifq<33thenq=q+l 
930 c$(k)=d$(q):soundl,300,3:ift>50the 
n990 

940. ifv=lthen640:else620 
950 char,11,2,"[CTRL-8]je[SPACE]hebt[ 
SPACE]verloren!!":poke212,1 
960 c=peek(208):ifc<255thenpoke208,c+1 

:goto980 

970 poke209,peek(209)+1:poke208, 0 
980 gosubl020:gotol040 

990 char,11,2,"[CTRL-8]je[SPACE]hebt[ 
SPACE]gewonnen!!":poke212,2 
1000 v=peek(210):ifv<255thenpoke210,v+1 


:goto980 

1010 poke211,peek(211)+1:poke210,0:goto 

980 

1020 cc=peek (208)+256*peek (209) :w=peek 
(210)+256*peek(211) 

1030 char,2,5,"[CTRL-4]computer:"+str$( 
cc):char,2,7,"[COM-8]speler[2xSPAC 
E] : "+str$ (w) +" [CTRL-1] " : return 
1040 a=0 

1050 a=a+l:ifa=8thena=0 

1060 colorl,14,a:char,7,10,"wil[SPACE]j 
e[SPACE]nog[SPACE]een[SPACE]keer[S 
PACE](j/n)?":getg$ 

1070 ifg$<>" j"andg$O"n"thenl050 

1080 gosublllO:ifg$="j"thenrun:elsefora 
=208to213:pokea,0:next:print"[SHIF 
T CLR][CTRL-1]doei!":end 
1090 char,2,18,"[CTRL-2]drie[SPACE]goed 
":char,2,20,"kijk[SPACE]maar[CTRL- 
1]" 

1100 z=17:forp=12to22step5:k$=c$((p-7)/ 

5):gosub330:next:goto950 
1110 soundl,800,5:return 
1120 char,0,0,"[CTRL-8]UCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCCCCCCCCI" 

1130 fora=lto23:char,0,a,"B":char, 39, a, 
"B":next 

1140 char,0,24,"JCCCCCCCCCCCCCCCCCCCCCC 
CCCCCCCCCCCCCCCCK":return 
1150 color4,6,3:colorO,6,5:scnclr:print 
chr$(14):printtab(14)"INSTRUCTIES[ 
CRSR-DOWN]" 

1160 print"Er[SPACE]wordt[SPACE]om[SPAC 
E]de[SPACE]beurt[SPACE]een[SPACE]k 
aart[SPACE]gespeeld.[CRSR-DOWN]De[ 
SPACE]waarde[SPACE]van[SPACE]deze[ 
SPACE]kaart[SPACE]wordt[SPACE]bij[ 
SPACE]"; 

1170 print"[SPACE]het[SPACE]totaal[SPAC 
E]opgeteld.[CRSR-DOWN]":print"Dege 
ne[SPACE]die[SPACE]de[SPACE]5 0[SPA 
CE]overschrijdt[SPACE]heeft[SPACE] 
ver-loren." 

1180 print"[CRSR-DOWN]De[SPACE]waarde[S 
PACE]van[SPACE]de[SPACE]kaarten[SP 
ACE]is[SPACE]als[SPACE]volgt:[CRSR 
-DOWN]":print"AAS[3XSPACE]1[SPACE] 
of[SPACE]11" 

1190 print"HEER[2xSPACE]3":print"VROUW[ 
SPACE]2":print"BOER[2xSPACE]1":pri 
nt"10[4XSPACE]+10[SPACE]of[SPACE J- 
10":print"7[5xSPACE]0" 

1200 print"De[SPACE]andere[SPACE]kaarte 
n[SPACE]hebben[SPACE]de[SPACE]waar 
de[SPACE]van[2xSPACE]het[SPACE]get 
al[SPACE]dat[SPACE]er[SPACE]opstaa 
t.[CRSR-DOWN]" 

1210 prinf'Bij[SPACE]drie[SPACE]dezelfd 
e[SPACE]kaarten[SPACE]bv[SPACE]3[S 
PACE]azen[SPACE]heb[SPACE]je[SPACE 
]ook[SPACE]gewonnen." 

1220 getkeyg$:gosublllO:scnclr rprintchr 
$ (142) :poke213,1:color4,1:colorO,2 
,4:return 
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Checksum vijftigen 


REGEL 

i 

14 

REGEL 

280 

122 

REGEL 

2 

143 

REGEL 

290 

160 

REGEL 

3 

213 

REGEL 

300 

195 

REGEL 

4 

110 

REGEL 

310 

56 

REGEL 

5 

174 

REGEL 

320 

34 

REGEL 

6 

143 

REGEL 

330 

157 

REGEL 

10 

174 

REGEL 

340 

158 

REGEL 

20 

44 

REGEL 

350 

115 

REGEL 

30 

222 

REGEL 

360 

171 

REGEL 

40 

159 

REGEL 

370 

7 

REGEL 

50 

90 

REGEL 

380 

19 

REGEL 

60 

214 

REGEL 

390 

40 

REGEL 

70 

6 

REGEL 

400 

27 

REGEL 

80 

3 

REGEL 

410 

188 

REGEL 

90 

193 

REGEL 

420 

121 

REGEL 

100 

27 

REGEL 

430 

142 

REGEL 

110 

229 

REGEL 

440 

87 

REGEL 

120 

56 

REGEL 

450 

113 

REGEL 

130 

252 

REGEL 

460 

207 

REGEL 

140 

23.6 

REGEL 

470 

68 

REGEL 

150 

217 

REGEL 

480 

150 

REGEL 

160 

34 

REGEL 

490 

26 

REGEL 

170 

231 

REGEL 

500 

35 

REGEL 

180 

132 

REGEL 

510 

57 

REGEL 

190 

227 

REGEL 

520 

117 

REGEL 

200 

196 

REGEL 

530 

43 

REGEL 

210 

163 

REGEL 

540 

60 

REGEL 

220 

66 

REGEL 

550 

224 

REGEL 

230 

226 

REGEL 

560 

244 

REGEL 

•' 240 

195 

REGEL 

570 

89 

REGEL 

250 

75 

REGEL 

580 

86 

REGEL 

260 

122 

. REGEL 

590 

95 

REGEL 

270 

89 

REGEL 

600 

105 


REGEL 

610 

67 

REGEL 

940 

172 

REGEL 

620 

137 - 

REGEL 

950 

4 

REGEL 

630 

172 

REGEL 

960 

127 

REGEL 

640 

174 

REGEL 

970 

174 

REGEL 

650 

243- 

REGEL 

980 

216 

REGEL 

660 

211 

REGEL 

990 

249 

REGEL 

670 

191 

REGEL 

1000 

170 

REGEL 

680 

81 

REGEL 

1010 

253 

REGEL 

690 

233 

REGEL 

1020 

94 

REGEL 

700 

67 

REGEL 

1030 

56 

REGEL 

710 

58 

REGEL 

1040 

35 

REGEL 

720 

65 

REGEL 

1050 

201 

REGEL 

730 

143 

REGEL 

1060 

139 

REGEL 

740 

80 

REGEL 

1070 

101 

REGEL 

750 

6 

REGEL 

1080 

168 

REGEL 

760 

246 

REGEL 

1090 

219 

REGEL 

770 

150 

REGEL 

1100 

108 

REGEL 

780 

1 

REGEL 

1110 

24 8 

REGEL 

790 

180 

REGEL 

1120 

54 

REGEL 

800 

1 

REGEL 

1130 

208 

REGEL 

810 

63 

REGEL 

1140 

141 

REGEL 

820 

100 

REGEL 

1150 

152 

REGEL 

830 

214 

REGEL 

1160 

219 

REGEL 

840 

115 

REGEL 

1170 

224 

REGEL 

850 

51 

REGEL 

1180 

6 

REGEL 

860 

170 

REGEL 

1190 

181 

REGEL 

870 

130 

REGEL 

1200 

122 

REGEL 

880 

189 

REGEL 

1210 

110 

REGEL 

890 

160 

REGEL 

1220 

12 

REGEL 

900 

140 




REGEL 

910 

208 




REGEL 

920 

138 




REGEL 

930 

154 






gaatu naar ESCON. 

Wij staan on-line met de fabrikant en zijn het 
enige GEAUTORISEERDE SERVICE-CENTER 
Onder service verstaan wij het verhelpen en 
opheffen van storingen en het in optimale con¬ 
ditie houden van uw computer. 

Daarvoor staat een degelijk 
opgeleid service-team 
klaar. 

Wij kunnen u op de volgende manieren helpen: 

• Reparatie in ons service¬ 
centrum waarbij u uw computer 
zelf kunt brengen en halen of, 

• U belt ons en we komen uw PC halen en 
brengen deze na reparatie weer terug 

• Indien u erg veel haast heeft kunt u na telefo¬ 
nische afspraak langskomen en op reparatie 
wachten* 

Wij repareren praktisch alle DOS computers, 
daarnaast zijn wij ook specialist in de volledige 
productlijn van COMMODORE. Zowel voor 
C-64, Cl 28 (Dl, AMIGA 500/2000 en de PC-lijn 
vanaf PC-10 t/m PC-60. Naast de computers 
bieden wij tevens servicc-op alle gangbare 
randapparatuur. 


Wat zijn de voordelen van 
ESCON service? 

U betaalt vaste reparatieta- 
rieven voor alle produkten 
en heeft op deze repara¬ 
ties drie maanden garan¬ 
tie. Dit geldt ook voor 
de door ons geleverde 
originele onderdelen. 

Bij reparaties boven de 
fl. 150 krijgt u automatisch 
een prijsopgave van de repa 
ratiekosten. 

Voor meer informatie over 
reparaties kunt u ons bellen 
en bent u welkom op: 


. ESCON BV Antoniuslaan 
3341-GA H.l. Ambacht , 
[felgfQon: 0I858-19922.J 
Telefax: ÖÏ8'5'8-l96S2. 


* Hieraan zijn extra kosten verbonden 
** Op devo computers verlenen wij voor¬ 
del im? se rv ice-a bon ne men te n 


idi ïuctppdiciLuui. ^ mm ^ ^ 

ÉiolÉnÈo5 TO W Hèt recept voor gezonde service 


Zelfs de beste computer kan problemen geven. 
Ook de uwe. U heeft alles al geprobeerd. 

Niets hielp. 


Als het opereren wordt..., 

JL — w. 


56 


Commodore Info 6/89 








Geos 


Onze populaire informatie-rubriek voor de aktieve Geos-gebruiker 

GEOS-INFO 


Nederlandse handleiding 


Printers?!!? 


GEOS 2.0 

Een ‘wanhopige’ heer Werkhoven 
vraagt ons wanneer de Nederlandse 
handleiding van GEOS 2.0 op de 
markt verschijnt. Eindelijk is het dan 
zover. Reeds in het vorige nummer 
van Commodore Info van juli/aug. 
werd het boek ‘GEOS 2.0, basis¬ 
handleiding voor de aktieve gebrui¬ 
ker’ geïntroduceerd. Dit boek be¬ 
schrijft niet alleen de werking van 
GEOS 2.0, maar ook die van Geo- 
Paint, GeoWrite 2.1, GeoSpell, Geo- 
Merge, Text Grabber en alle desk-ac- 
cessoires. Verder behandelt het boek 
enkele applicaties, zoals GeoCalc, 
GeoFile, GeoPublish en de recent 
verschenen GeoChart. Echt een boek 
voor de ware ‘GEOS-freak’, zowel de 
beginnende als de gevordere gebrui¬ 
ker. Het boek, 144 pagina’s dik en 
veel illustraties, is momenteel ver¬ 
krijgbaar voor slechts fl. 34.95. U kunt 
het boek bestellen door dit bedrag 
(incl. verzendkosten) over te maken 
op gironummer 1585491 van SAC 
Amsterdam onder vermelding van 
‘GEOS basishandleiding’ 


Bob Damman uit Hove (België) 
schrijft ons dat zijn STAR LC-10c niet 
de volle breedte van zijn GeoFile 128 
wil afdrukken, maar sclechts 3/4 deel. 
Dit probleem komt helaas wel vaker 
voor bij printers die afdrukken met 
een density van 60 dots per inch. 



U zult bij het samenstellen van uw 
forms rekening moeten houden met 
de maximale printbreedte vn uw prin¬ 
ter. Er is jammer genoeg geen andere 
oplossing te bedenken. 


Reactie’s van lezers 

Van Patrick Cools uit Varsenare (Bel¬ 


gië) ontvingen we naast een aantal 
bruikbare opmerkingen enkele nuttige 
Public Domain programma’s. Aller¬ 
eerst reageert Patrick op een pro¬ 
bleem uit Commodore Info nr. 2/89. 
Het betrof hier een gewiste bootdisk. 
Aldus luidt zijn advies, om altijd een 
copie van uw bootdisk achter de 
hand te houden. Deze disk zal dan 
niet als opstartdisk te gebruiken zijn, 
maar als uw originele bootdisk dan 
iets overkomt, copieert u de files van 
uw copie gewoon terug naar de origi¬ 
nele bootdisk. Waar het hierbij om 
gaat is het identificatienummer van 
uw originele diskette. Er is echter één 
voorwaarde, op de bootdiskette mo¬ 
gen niet meer dan 35 tracks geformat¬ 
teerd zijn. Voor vele GEOS gebrui¬ 
kers kan deze methode van het ma¬ 
ken van een back-up een redmiddel 
zijn wanneer hun originele bootdisk 
in het ongerede raakt. Hartelijk dank 
voor de tip. 

Voor al uw reacties, vragen en tips 
kunt u zich wenden tot: 

GEOS tnforubriek 
Postbus 43048 
1009 ZA Amsterdam 


Eindelijk begint het dan een beetje te komen, de Public Domain software voor gebruik 
in of met GEOS. Ditmaal een aantal nuttige programma’s, waarmee u iconen van 
GEOS-files, plaatjes van PrintMaster en Printshop kunt ‘grabben’ en naar een Geo- 
Paint file kunt convertren. 


edit i options j fonts 




sbl 

Dit is een voorbeeld 
') van de Printshop 
converter naar 
GEOS formaat 



Afb. 1. GeoPaintfile 


Plaatjes verzamelen 
voor GeoPaint 

Met behulp van de in dit artikel behandelde programma’s, 
welke zijn geprogrammeerd door Patrick Cools uit Varse¬ 
nare, komt u in het bezit van een aantal converteerpro- 
gramma’s, die plaatjes omzetten naar standaard graphics. 
Deze ‘graphics schermen’ kunnen vervolgens met behulp 
van het programma GeoPaint Catcher (gepubliceerd in 
Comm. Info nr. 1, jan/feb 1989) worden omgezet naar een 
GeoPaint file. Zie afbeelding 1. 

Hoe gaat het in z’n werk? Allereerst moet u het machine¬ 
taal programma ‘SYS POWER’, foutloos intikken en weg¬ 
schrijven naar diskette. Dit programma wordt door de vol¬ 
gende programma’s gebruikt voor het wissen van het gra¬ 
fische scherm, de kleuren en het laden van de tekeningen, 
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alsook het saven van het resultaat. Het programma moet 
worden ingevoerd met behulp van een machinetaal moni¬ 
tor en wordt weggeschreven onder de naam "SYS PO¬ 
WER", 033c,03fb. Dit geheugengebied wordt normaal ge¬ 
bruikt door de cassettebuffer. 
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Icoon ‘grabber’ 

Het eerste programma, ‘Converteren van GEOS iconen’, 
is evenals de volgende programma’s geschreven in BA¬ 
SIC. Het laadt GEOS file-iconen vanaf een GEOS diskette 
en toont deze op het scherm. Er kunnen maximaal 54 ico- 



afb. 2 GEOS iconen 


nen op het scherm worden weergegeven, zie afb. 2. 

Als u de gewenste iconen op het scherm heeft, kunt u het 
‘scherm’ wegschrijven naar diskette. Het programma 


vraagt dan om een filenaam. Het file wordt weggeschrevn 
in 32 blokken. Naderhand kan men het file weer laden (om 
eventueel naar een GeoPaint file te convertren), door 
LOAD"filenaam",8,1 in te voeren. Het scherm staat dan 
in geheugengebied $6000 tot $7f41. Vervolgens laadt u 
het programma GeoPaint Catcher, en selecteert het 
scherm, waarop u het weer wegschrijft naar diskette als 
een GeoPaint file. U kunt de iconen nu bewerken met 
GeoPaint. 

Plaatjes converteren 

De volgende twee programma’s zijn interresant voor 
GEOS gebruikers, welke niet in het bezit zijn van de appli¬ 
catie Graphics Grabber uit het pakket DeskPack plus. 
Beide programma’s maken evenals het vorige gebruik van 
het machinetaal programma SYS POWER. De ene listing 
is het conversieprogramma dat plaatjes uit Printshop om¬ 
zet naar standaard graphics. Er kunnen maximaal 9 plaat¬ 
jes op het scherm worden gezet, waarbij u de keuze heeft 
over het aantal te tonen plaatjes. Het programma vraagt u, 
na het plaatsen van een Printshop datadiskette, of het 
plaatje al dan niet op het scherm moet worden getoond. 
Als het aantal opgegeven plaatjes op het scherm staan 
kunt u ze als een file bewaren op diskette. U drukt hiertoe 
op de spatiebalk. Nu wordt een filenaam gevraagd. Voer 
een bestandsnaam in en druk op RETURN. Evenals de 
icoon grabber kunt u een weggeschreven scherm weer 
inladen en convertren naar een GeoPaint file. 

(zie listing ‘Converteren Printshop’) 

Als u de plaatjes naar een GeoPaint file heeft geconver¬ 
teerd kunt u ze bewerken in GeoPaint of bewaren in een 
zgn. Photo Album. Op deze manier kunt u een flinke biblio¬ 
theek met GEOS graphics opbouwen. De 3e listing, Print- 
Master converter, is nagenoeg hetzelfde als de listing van 
het programma Printshop converter. De werking ervan is 
gelijk als het converteerprogramma voor Printshop plaat¬ 
jes. 

(zie listing ‘Converteren PrintMaster’) 

Tot slot 

Zoals u ziet zijn het nogal forse listings, maar ze zijn zeker 
de moeite van het intikken waard. De programma’s wer¬ 
den geschreven door Patrick Coois. Op deze wijze kan er 
in Nederland en België een scala aan Public Domain soft¬ 
ware groeien. Dus, nogmaals een oproep aan de program¬ 
meurs onder u, stuur eens wat op. Leuke en originele 
GEOS programma’s worden (mits gepubliceerd) gehono¬ 
reerd met een redelijke vergoeding. Ook serieuze toepas¬ 
singen van de GEOS applicaties zijn van harte welkom. 
Volgende keer hopen we aandacht te besteden aan een 
assembler programma dat met behulp van GeoProgram- 
mer moet worden ingevoerd. Mocht u niet in het bezit zijn 
van het programma GeoPaint Catcher dan kunt u de 
GEOS Public Domain disk 1 bestellen. U kunt dit doen 
door overmaking van ƒ 12,00 op gironummer 1585491 
t.n.v. Infolist Amsterdam o.v.v. GEOS INFO PD Disk. Rest 
mij nog u succes toe te wensen bij het intikken van de 
listings en veel genoegen bij het werken met de program¬ 
ma’s. 

Bert Venema 
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io rem ***************************** 

20 rem * * 

30 REM ifcCONVERTEREN VAN GEOS ICONEN* 

40 REM * * 

45 REM * TOT STANDAARD GRAFIEKEN * 

50 REM * * 

55 REM * VOOR COMMODORE INFO * 

60 REM * * 

70 REM * DOOR PATRICK CQÜLS * 

80 REM * * 

90 REM ***************************** 

100 IFSY-1THEN130 
1101FREEK(828)=160THEN130 
120 SY=1:LÜAD"SYS POWER",8,1 
130 DIMZ$(5),TH(50),SH(50),BY(72) 

140 P0KE53280,0:P0KE53281,0;P0KE646,1 
150 SYS828:SYS862 

160 PRINT"(CLR)(DOWN)(DOWN) PLAATS GEOS DISK IN DE DRIVE" 

170 PRINT" (DOWN)(DOWN)»EEN TOETS<<" 

180 GETQ$:IFQ$=""THEN 180 

190 S=1:1 = 1s S1=S 

200 OPEN 1,8,15s 0PËN2, 8 , 2, "#" 

210 PRINT#1,"ü1 "5 2;O;18 5 S1 
220 6ET#2,T$,5$:B-ASC <B*+CHR*(0)) 

230 A=21 

240 F0RK-1TQ8 

250 PRINT#!., "UI" 5 2;Os 18;SI 

260 PRINT#1,"B-P 2"; A 

270 GET#2,T$s TH(I)-ASC(T*+CHR*(0)) 

280 6ET#2,8*:SH(I)-ASC(S*+CHR$(O)) 

290 A=A+32s1=1+1 
300 NEXTK 
310 S1=S 

320 IFSO255THEN210 

330 S0SUB590 

340 FQRK=1TQI-1 

350 IFTH(K)«ÖTHEN430 

360 PR I NT# 1,"LI 1"! 2? O; TH (K);SH(K) 

370 PRINT#1,"B-P 2 5" 

380 F0RL»1TQ63 

390 GET#2,BY$sBY<L)-ASC(BY*+CHR*(0)) 

400 NEXTL 

410 6QSUB680 

420 IFA-31560THEN490 

430 NEXTK 

440 GQSUB640 

450 PRINT"(DOWN) (RVS)S(OFF)AVE OF (RVS)N(OFF)OG MEER ICONEN" 

460 GETQ$s IFQ$<>"S"ANDG)$<>"N"THEN460 


470 IFQ*="N"THENCL0SE2:CLOSE1:GOTO160 
480 60T0510 
490 G0SUB640 
500 PRINT"(DOWN)(DOWN) 

510 PRINT"(DOWN)(DOWN) 

520 PRINT"(DOWN)(DOWN) 

530 CL0SE2:CLOSE1 
540 INPUT"(DOWN)(DOWN) 

550 PQKE886,LEN(Z$(O)) 

560 SYS917 
570 END 

580 REM SUBROUTINE GRAFISCH SCHREM 
590 P0KE56576, PEEK (56576)AND254 
600 P0KE53265,PEEK< 53265)0R32 
61O PQKE53272,64+32+16+8 
620 RETURN 

630 REM SUBROUTINE NORMAAL SCHERM 
640 PÜKE53265 , 27 s PQKE53272 . 21 
650 PQKE56576,PEEK(56576)OR1 
660 RETURN 

670 REM SUBROUTINE SCHERM POKEN 
680 READAsB-l 
690 F0RYY-0T02 
700 A1=A+(YY*320) 

710 FQRXX-0T07 
720 A2=A1+XX 
730 FQRlI-0TQ2 
740 TT=II*8 
750 PÜKEA2+TT,BY(B) 

760 B=B+1 
770 NEXTII 
780 NEXTXX 
790 NEXTYY 
800 RETURN 

81O DATA 24904,26184,27464,28744,30024,31304 
820 DATA 24936,26216,27496,28776,30056,31336 
830 DATA 24968,26248,27528,28808,30088,31368 
840 DATA 25000,26280,27560,28840,30120,31400 
850 DATA 25032,26312, 27592,28872, 3015231432 
860 DATA 25064,26344,27624,28904,30184,31464 
870 DATA 25096,26376,27656,28936,30216,31496 
880 DATA 25128,26408,27688,28968,30248,31528 
890 DATA 25160,26440,27720,29000,30280,31560 


SCHERM IS VOL" 

(RED)GEOS DISK VERWIJ DEREN(WHT)" 
DATA DISK PLAATSEN" 

FILENAAM";Z$(0) 


20 REM * * 
30 REM * CONVERTEREN PRINTSHOP * 
40 REM * * 
50 REM * NAAR STANDAARD GRAFIEK * 
55 REM * * 
60 REM * VOOR COMMODORE INFO # 
65 REM * * 
70 REM * DOOR PATRICK CQQLS * 
80 REM * * 


90 REM ***************************** 

100 IF 8Y-1THEN13Ö 
110 IFPËEK(828)=160ïHEN130 
120 SY~ 1: L.QAD"SYS POWER" ,8,1 
130 DIMZ*<9) iSY-0 

140 PRINT"(CLR)CONVERTEREN VAN PRINTSHOP PLAATJES" 

150 P0KE5328Q,O:P0KE53281,0:PÜKE646,1 
160 P0KE52,92 

170 PRINT"(RGHT)(RGHT)(RGHT)(RGHT)(RGHT)TOT STANDAARD GRAFIEK" 

180 PR I NT" (DOWN) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) (RGHT) MAX. 9 FILE•’ 8 
190 I NP UT" AANTAL FI LE8"; AA 
200 IF AA>9 THEN 190 

210 PRINT"(DOWN)PLAATS P/S GRAPHICS DISK IN DE DRIVE" 

220 BET'Q*: I FQ*="" THEN220 
230 OPEN 1,8,15,"I"!CLOSE1 
240 G0SUB590 

250 P0KE56576,PEEK(56576)AND254 
260 PQKE53265,PEEK(53265)ÜR32 
270 POKE53272,64+32+16+8 
280 SYS828:SYS862 
290 LS-1 

300 Z$(O )-1 $<LS):P0KE886,LEN(Z$(0)) 

310 SYS902 
320 8=32768;READA 
330 F0RY=0T06 
340 A1=A+(Y*320) 

350 F0RX-0T07 
360 A2-A1+X 
370 FORI-OTOiO 
380 T=I *8 

390 P0KEA2+T,PEEK(B) 

400 8=8+1 

41O IFB=33340THEN450 
420 NEXTI 


430 NEXTX 
440 NEXTY 
450 LS-L8+1 

460 IF LS >AA THEN 480 
470 GOTO 300 

480 GETX*ïIFX*=""THEN4B0 

490 P0KE53265,27;P0KE53272,21 

500 PÖKE56576,PEEK(56576)OR1 

510 PRINT"(DOWN)NU WORDT HET SCHERM GESAVED" 

520 PRINT"(BLK)PLAATS EEN DATA DISK IN DE DRIVE(LBlU)" 

530 PRINT" DRUK EEN TOETS" 

540 GÓQ$s IFQ$=""THEN 540 
350 INPUT"GEEF FILENAAM ";Z*(0) 

560 P0KE886,LEN(Z $(O)) 

570 SYS917 
580 END 

590 REM DIR LEZEN 
600 I—O 

610 OPEN1,8,O,"«O" 

620 GE'-#i,(4$,B$ 

630 üL'ï#l,A*,B* 

640 GET#i,A$,B* 

650 GET* 1,;IFSf:X>THENCL0SE1:RETURN 
660 JF BIOChR* ( .4) [HEN630 

6/0 bETfcl.B*: I.FB$ CHR$(34) TriENÜ**D*+Ö*: ÜÜT0670 
680 btl! 4, B*: i I B* - -CHR* (32) \ HEN6H0 
690 (;$=•■" 

700 C$«C*+B$:GET#1,B$:IFB*<>""THEN700 

71O IFI«OTHÈNPRINTD*:1=1+1:G0T0760 

720 PRINTD$sTAB(20)"(RVS)J(OFF)A/(RVS)N<OFF)EE" 

730 GETQ$:IFQ$<>"J"ANDQ«<>"N"THEN730 

740 IFQ$="J"THËNPRINTTAB(20)"(UP) JA"a 1 % (1)*D$s1=1+1:GOTO760 

750 IFQ$="N"THENPRINT"(UP) (UP)"s G0T0760 

760 1FI>AATHËNCLÜSEI:RETURN 

7/0 D**“":GOT0630 

780 DA! 424904 ,25008,2511 2 

79O DMTA27464.V7368,27672 

800 DM! M %0:>44. ,.t 1448. :•> -332 
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iu reh ww#***#******#*’*# 


20 REM * * 
30 REM * CONVERTEERT PRINTMflSTER * 
40 REM * * 
30 REM * TOT STANDAARD GRAPHICS * 
53 REM * * 
60 REM * VOOR COMMODORE INFO * 
65 REM * * 
70 REM * DOOR PATRICK CÜOLS * 
00 REM * * 


90 REM **************************** 

100 IF SY*lTHENï30 
11O IFPEEK(828)=160THEN130 
120 BV»1s LQAD"SVS POWER",8,1 
130 DIMZ»<9) iSY*0 

140 PRINT 1 ’ (CLR) CONVERTEREN VAN PRINTMASTER 6RAPHIC8" 

150 P0KE5328Ö,O!PQKE53281,O:PDKE646,1 
160 P0KË52,92 

170 PRINT"(RSHT)<RBHT)(RGHT)(RGHT)(RGHT)TOT STANDAARD GRAPHICS" 

180 PRINT"(DOWN) (RGHT)(RGHT ) (RGHT) <RGHT) <RGHT)<RGHT) <RGHT)MAX. 9 FILE’8» 
190 INPUT" AANTAL FIL.E J S"; AA 
200 IF AA>9 THEN 190 

210 PRINT"(DOWN)PLAATS PRINTMASTER DATA DISK IN DE DRIVE" 

2.20 SETQ$: IFQ*=""THEN220 
230 OPEN 1,8,15,"I"s CLOSE1 
:?A0 GQSUB60Ö 

250 POKE’36376, PEEL (56576)AND2S 4 
260 POKE53265,REEK(53265)0R32 
270 P0KE53272,64+32+1.6+8 
280 SYS828:SYS862 
290 LS*J 

300 Z*(O)»Z$(LS);P0KE886,LEN(Z*(O)) 

310 SYS9Q2 
320 B-32773:READA 
330 F0RY-0T07 
340 A1-A+(Y#320) 

350 F0RX-0T07 
360 A2--AI + X 
370 F0RI-0T011 
380 IFI-0THEN410 
390 "1-1*8 

400 P0KEA2+T, PEEK (B) 


410 BsB+1 

420 IFB~33398 T HEN460 
430 IMËXTI 
440 NEXTX 
450 NEXTY 
460 LS-LS+1 

470 IF LS >AA THEN 490 
480 GOTO 300 

490 GETXf»IFX*-""THEN490 

500 P0KE53265,27 : PQKE532 72,21 

510 PQKE56576,REEK(56576)QR1 

520 PRINT"(DOWN)NU WORDT HET SCHERM GESAVED" 

S30 PRINT" (BLlOPLAATS EEN DATA DISK IN DE DRIVE(LBL.LJ) " 

540 PRINT" DRUK EEN TOETS" 

550 GETQKIFQK«""THEN 550 
560 INPUT"GEEF FILENAAM "iZKÖ) 

570 P0KE886, L.EN (Z $ (O) ) 

580 SYS917 
590 END 

600 REM D.LR LEZEN 
610 1=0 

620 OPEN1,8,O,"$0" 

630 SET#1,A$,B$ 

640 SET'ttl, A$, 

650 GET#1,A*,B$ 

660 GE I * 1 , B*: 1 ES i' =: : O i HENCLUSE1: RE I URN 
670 IK m ;CHR*(34) IHEM660 

680 GETttl. H'K! Ir h'C (34) rHE‘MD*»r)*+B*ï GO) 0680 

690 GÉ T# I, B*: I. ER$ yCHR* ( 32) 1HEN690 
700 C3>- ‘ 

710 C$«C$+B$ ï (BET # 1, B$: IF BK > 1111 THEN7 i O 

720 IFI«OTHENPRINTD$:I■I+1:GQT0770 

730 PR INTD$s TAB(20)"(RVS)J(OFF)A/(RVS)N(OFF)EE" 

740 GETQ»:IFQK >"O"ANDQ*<>"N"THEN?40 

750 IFQ*«"J"THENPRINTTAB(20)" (LIP) JA"iZf(X) =D$i 1*1 + 1:GÜTQ770 

760 IFQ»*" N 11 THENPRI NT 11 (LIP) < UP) 11 : GQT077O 

770 IFI>AATHËNCLOSE1:RETURN 

780 1)**""*G0TQ640 

790 DAT A24904.25Ó08,25 I J 2 

800 DATA27464,2/568,27672 

8 I O DA TA > 344., ...t.,448, ;.o3I• 7 


PC DumpDag 


beurs voor gebruikte 
computers, restpartijen, 
printers & supplies 


De ideale plek om goedkoop een 
computer aan te schaffen 
(of uit te breiden) 




In de Meervaart 
Amsterdam/Osdorp 

Osdorperplein 205 

Toegang f 2,50 p.p 
van 10.00 tot 17.00 u 





Organisatie: Benelux Computer Exchange 
i.s.m. diverse brokers en handelaren, 
int. 020-203239 
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Geos 


Het grootste deel van de post, die Bert Venema en ik in de GeosRubriek krijgen, 
bestaat uit brieven van mensen die de een of andere printer bezitten, maar die 
‘doet-ut-niet’. Dit artikel legt stap voor stap uit, hoe U zelf een printerdriver kunt 
schrijven. De gegeven voorbeelden zijn voor een 8 punts centronics-compatible 
printer. 

Geos-machinetaalcursus (6) 


Maak Uw eigen printerdriver 

P rinters zijn er in soorten en maten. Het GEOS-systeem, met een bijzon¬ 
der sterke nadruk op grafische toepassingen, kan alleen met printers 
werken die ook grafische mogenlijkheden bezitten. Daisywheelprinters en 
Letterwielprinters vallen dus af. Op de mogenlijkheden van Laserprinters 
met GEOS (wat zeer wel te doen is, zie het pakket GeoLaser) zal ik, omdat 
dit natuurlijk weinig voorkomt, niet ingaan. Matrixprinters blijven dus over. 


Matrixprinters hebben door¬ 
gaans twee modi: draft/ge- 
woon/NLQ en de grafische 
modus. Een matrixprinter print 
altijd verticale rijen puntjes. In 
de eerstgenoemde modus 
haalt de printer de bit-patronen 
uit een in de printer-ROM op¬ 
geslagen karakterset. Wat de 
bit-patronen betreft is er geen 
verschil tussen de draft/ge- 
woon/NLQ-print-stijlen, de 
verschillen worden bereikt 
door dubbel overprinten een 
en andere technieken. In de 
tweede modus (grafisch) wor¬ 
den de bit-patronen door de aanstu¬ 
rende computer zelf geleverd. 


Naalden 

Een belangrijk kenmerk van een ma¬ 
trixprinter is het aantal naalden in de 
printkop. Tegenwoordig zijn er twee 
kategorieen voor printers: 9-naalds 
en 24-naalds. Als derde categorie zijn 
de zeer kromme 7-naalds printers te 
onderscheiden, bijvoorbeeld de Bro- 
ther HR-5, en de MPS 801/803. (Mijn 
eigen printer valt natuurlijk in deze ca¬ 
tegorie.) Alle 7-naalds printers die ik 
ken, zijn echter MPS 801-compatible, 
en die werken feilloos (maar traaag) 
met de “Commodore” driver. Bezitters 
van deze printers zullen daarom 
o.h.a. geen aanstuurproblemen heb¬ 
ben. Dus terug naar de 9 en 24- 
naalds printers. Negen-naalds prin¬ 
ters gebruiken eigenlijk maar 8 of 7 
naalden in de grafische modus, de 
onderste naald(en) zijn bedoeld voor 




— 


naar onder uitstekende karakters, zo¬ 
als de “p” en de “g”. In de handleiding 
valt te lezen hoeveel puntjes Uw prin¬ 
ter verticaal print in de grafische (ook 
wel ’bit map’) mode. 

Serieel commodore 

Sommige printers laten zich heel ge¬ 
makkelijk op de C-64 aansluiten, dat 
zijn onder andere natuurlijk de com¬ 
modore printers, maar ook modellen 
van andere fabrikanten, zoals de Star 
NL10C en de Okidata 120. (Dit zijn 
dus printers met een commodore se¬ 
riële aansluiting, die direct kunnen 
worden aangesloten) Bijna alle ande¬ 
re printers die te koop zijn, hebben 
een Centronics paralelle aansluiting. 
Met deze printers doen zich nu de 
meeste problemen voor. 

Parallel Centronics 

In principe zijn er twee manieren om 


een parallelle centronicsprinter 
aan te sluiten op een C-64. Al¬ 
lereerst kan met een interface 
de Centronics aansluiting wor¬ 
den omgezet in een seriële. 
Doordat er hiervoor nogal wat 
elektronica komt kijken, zijn 
deze dingen vrij duur. In illus- 

S tratie 1 zijn alle door Berkeley 
Softworks goedgekeurde inter- 

S faces opgesomd. Er is echter 
nog een tweede manier die 
jjf GEOS in het begin ook leek te 
|jfe ondersteunen. Het is namelijk 
ook mogelijk om een centro 
nics-aansluiting met een sim¬ 
pel kabeltje direct op de user-poort 
van de C-64 aan te sluiten. De beken¬ 
de Power Cartridge ondersteunt deze 
mogelijkheid bijvoorbeeld. De kabel 
die hiervoor nodig is, is zelf makkelijk 
te maken, en ook Berkeley Softworks 
had in 1986/1987 de zg. GeoCable in 
het GEOS-programma opgenomen. 
Echter, in 1988 heeft men, om mij on¬ 
bekende redenen, nog voor er ook 
maar een printerdriver die met deze 
kabel samenwerkte op de markt was 
gekomen, besloten de Geocable te 
schrappen. De aansturing van prin¬ 
ters aan de user-poort is een vrij inge¬ 
wikkelde zaak, er moet dan gerom¬ 
meld worden met protocols in de 
user-poort CIA2-adressen ($dd00 en 
verder). Deze keer zal ik dit dan ook 
niet behandelen, dat is misschien nog 
stof voor een volgend artikel. Mocht er 
iemand onder de lezers zijn die meer 
weet van het ’GeoCable-mystehe’, 
dan zou ik daar graag meer over ho¬ 
ren. 
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Listings 

Wat ik nu dan wel ga behandelen is 
de methode om een werkende prin- 
terdriver te schrijven voor een printer 
die is aangesloten op de gewone se¬ 
riële bus, direct of indirect (met een 
interface). Tussen de tekst van dit ar¬ 
tikel door vindt u voorbeelden, die u, 
als u ze achter elkaar plakt de com¬ 
plete assembly-listing geven. Deze 
listing dient met de GeoAssembler 
gecompileerd te worden. Listing 1 be¬ 
vat het programmaatje dat dan door 
de Geolinker gehaald moet worden. 
Als header kunt U de header van de 
vorige aflevering gebruiken, al moet U 
wel APPLICATION door PRINTER en 
InitRoutine (2x) door InitForPrint ver¬ 
vangen. De listing kan echter ook in 
een gewone assembler ingegeven, 
de code moet dan wel vanaf $7900 
ingegeven worden, en naderhand 
met de Geos-Program-maker 2.0 
(Listing 2) op disk gesaved worden. 
Let dan wel weer op, want in de lis¬ 
tings komen macro’s voor 
(bijv. LoadW en LoadB) en 
adres-labels (zoals r0,r3 etc). 

Deze zijn in de vorige afleve¬ 
ringen al uitgebreid uitgelegd, 
en dienen op de toen aange¬ 
geven wijze vertaald te wor¬ 
den. Tenslotte nog dit: de be¬ 
schreven listing is slechts een 
voorbeeld en geldt niet voor ie¬ 
dere printer, want hoewel er 
eenzelfde stekker aan vast zit, 
lopen de printercommando’s 
van de verschillende printers 
uiteen. De eigen waarden van 
de printercommando’s zullen 
uit de handleiding gehaald 
moeten worden. 


Printer Driver Definitie 

Allereerst bekijken we wat algemene 
gegevens voor de printer. Het is voor 
het goede overzicht altijd beter deze 
in constanten te vangen: 

devicenr= 4 

;vul de eigen waarden in! 
secadres= 5 
; idem 

breedte= 80 

;in blokken van 8 punten breed 
lengte= 90 

;in blokken van 8 punten breed 
LineFeed= 12 
FormFeed= 15 
CarRet= 13 

Een GEOS-printerdriver begint altijd 
op adres $7900. De eerste 24 bytes 
zijn 8 jumps naar 8 routines. Deze 
jump-tabel is nodig, omdat op deze 


rts 

OpenPrint; 

lda#devicenr 

jsr$ffbl 

lda#$60+secadres 

jsr$ff93 

rts 

ClosePrint: 

jsr$ffae 

rts 

Twee afleveringen geleden werden 
alle routines van de printerdriver van¬ 
uit het oogpunt van de gebruiker (de 
applicatieprogrammeur) besproken: 
“wat kan je ermee?”. Nu zal voor alle 
routines de implementatie (uitwer¬ 
king) in machinetaal behandeld wor¬ 
den. Beginnen we bij het be¬ 
gin. De eerste routine, InitFor¬ 
Print, wordt aangeroepen aan 
het begin van elk document 
(dus niet elke pagina!). Meest¬ 
al doet deze procedure hele¬ 
maal niets. De code hiervoor is 
dan ook frappant: 

r InitForPrint: 
rts 

Zo, dat is eruit. De volgende 
procedure, dat is Startprint, 
houdt wat meer in. Deze pro¬ 
cedure wordt aangeroepen 
aan het begin van elke pagina, 
en dient de printer in de grafische mo¬ 
dus te brengen, en de printfile te ope¬ 
nen, dus wat in BASIC is: “open4,4 
etc..”. 

r_StartPrint: 
lda#0 

stamodeflag 

; 0=graphics 

GeneralStart: 

lda#devicenr 

jsrSetDevice 

jsrlnitForlO; 

lda#0 

sta$90 

j srOpenFile 

lda$ 90 

cmp#0 

bnePrintError 

jsrOpenPrint 

jsrlnitPrinter 

jsrClosePrint 

j srSync 

jsrDoneWithIO 

ldx#0 

rts 

Sync: 


StartPrmt: 
jmpr_StartPrint; 
PrintBuffer: 
jmpr_PrintBuffer; 
StopPrint : 


jmpr_StopPrint; 
GetDimensions: 
jmpr_GetDimensions; 
PrintASCII: 
jmpr_PrintASCII; 
StartASCII: 
jmpr_StartASCII; 
SetNLQ: 
jmpr_SetNLQ; 



Hierna begint de ruimte, waarin in de 
printer-data algemene informatie over 
de status van de printer wordt bijge¬ 
houden. 

PrinterNaam: 

.byte "Voorbeeldprinter", 0 
printbaarblok: 

.byte 0,0,0,0,0,0,0,0 
teller:.byte 0 
hulppointer: 

.byte 0,0 
modeflag:.byte 0 


De variabele modeflag dient voor ge¬ 
bruik in de printer, om te onderschei¬ 
den of er wel of niet in de grafische 
modus geprint wordt. (0=grafisch, 
255=ASCII) Nu komen wat algemene 
routinetjes voor het openen en sluiten 
van kanalen. 

OpenFile: 
lda#devicenr 
j sr$ffbl 


manier het adres van elke printerrou- 
tine gelijk gehouden kan worden voor 
alle verschillende printerdrivers. Zo¬ 
doende kunnen de applicaties ge¬ 
woon een vast adres voor iedere rou¬ 
tine aanroepen, zonder te hoeven we¬ 
ten welke printerdriver in het geheu¬ 
gen zit. 

.psect 

.include GeosMac 
.include GeosSym 
InitForPrint: 
jmpr_InitForPrint 


lda#$f 0+secadres 
jsr$ff93 
j sr$ffae 
rts 

CloseFile: 

ldafdevicenr 

jsrSffbl 

lda#$e 0+secadres 
jsr$f f.93 
jsr$ffae 
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ldy#0 
1 $: 
ldx#0 
2 $: 
inx 
bne2 $ 
iny 
bnel$ 
rts 

PrintError: 
pha 

j srCloseFile 
j srDoneWithIO 
pla 
tax 
rts 

InitPrinter: 
bitmódeflag 
bmimode_ascii 
;mode dus graphic 
LoadW$08,s_InitGraph 
lda#5 

/lengte s_InitGraph 
jmpPrintString 
mode ascii : 

LoadW$08,s_InitAsc 
lda#4 

/lengte s_InitAsc 
jmpPrintString 
PrintString: 
stateller 
lusl: 
decteller 
ldyteller 
lda($08),y 
jsr$ffa8 
cpyO 
bnelusl 
rts 

s_InitGraph: 

• byte 

$08,$41,$lb,$40,$lb 
s_InitAsc: 

.byte $32,$lb,$40,$lb 


Omdat StartAscii natuurlijk erg 
lijkt op StartPrint, zal ik even uit de 
chronologie vallen en deze routine 
eerst bespreken. 

r_StartASCII: 
lda#$ff 
stamodeflag 
jmpGeneralStart 

Zoals U ziet, de rest is gelijk aan 
StartPrint. In GeneralStart doet de 
computer steeds precies hetzelfde, 
tot InitPrinter. Hier wordt weer onder¬ 
scheid gemaakt tussen de twee print- 
modi. Er moeten namelijk logischer¬ 
wijze twee verschillende printer-com- 
mando’s gegeven worden. Als de 
mode grafisch is, wordt sJnitGraph 
naar de printer gestuurd, anders (as- 
cii-mode) sJnitAsc. Dus sJnitGraph 
is het commando om de printer in de 
grafische stand te brengen, sJnitAsc 
is het commando om de printer in de 
(gewone) ascii-karakterstand te bren¬ 
gen. De strings die geprint worden, 
hebben nog wel wat addertjes onder 


het gras. Ten eerste worden ze van 
achter naar voor geprint (door mijn 
PrintString-routine). Ten tweede is 
hier het punt gekomen waar U niet zo¬ 
maar klakkeloos mijn listing kunt 
overnemen. U moet in Uw handlei¬ 
ding kijken welke karakters nodig zijn 
om Uw printer in de grafische stand te 
brengen! Deze “printer-commando’s” 
zullen waarschijnlijk steeds uit twee 
karakters bestaan de ESC-code (27 
ofwel $1 b) en een andere waarde. Dit 
veelvuldig voorkomen van de waarde 
$1b is in mijn listing ook te zien. De 
door mij als voorbeeld gegeven prin¬ 
ter-commando’s werken overigens 
voor een Epson FX-80. 

Omdat ik de volgorde nu toch al in de 
steek heb gelaten zal ik de routines 
nu in oplopende moeilijkheid doorlo¬ 
pen. Allereerst dus GetDimensions. 
Deze routine is bedoeld om de gebrui¬ 
ker (lees: de GEOS-applicatie-pro- 
grammeur) te laten weten hoeveel 
puntjes de printer in de breedte aan¬ 



kan. Dit wordt aangegeven per blokje 
van 8. De meeste printer halen de 
standaard 640 puntjes (ofwel 80 blok¬ 
jes) wel, maar onder andere de printer 
van Uw GEOS-redacteur komt maar 
tot 480 puntjes (60 blokjes). Deze rou¬ 
tine doet dus helemaal niets, het zet 
alleen de breedte in x en de lengte in 
y, zodat de applicatie weet met wat 
voor een printer hij te maken heeft. 

r_GetDimensions : 
ldx#breedte 
ldy#lengte 
rts 

Onder de verschillende matrixprinters 
zijn zeer uiteenlopende vormen van 
NLQ te vinden. De routine SetNLQ is 
bedoeld voor gebruik tijdens het AS¬ 
CII printen. Hij opent gewoon een ka¬ 
naal naar de printer en stuurt het 
NLQ-printer-commando door. Als Uw 
printer helemaal geen NLQ heeft, dan 
bestaat deze procedure gewoon uit 
een RTS. In de binnenkomende post 


zitten nogal eens mensen die hun 
printer tijdens de grafische mode, die 
bijna altijd door GEOS gebruikt wordt, 
NLQ willen laten doen. Als dit moge¬ 
lijk is met Uw printer (zie Uw handlei¬ 
ding, of probeer het met een simpel 
BASIC-programmaatje eens), dan 
dient deze routine hier NIET voor. 
want deze routine was, zoals gezegd, 
bedoeld voor ASCII-printen. Als U 
dus NLQ in de grafische mode wilt, 
dan dient U het NLQ commando aan 
sJnitGraph (de string om de printer in 
de grafische mode te brengen) toe te 
voegen. U kunt ook -afhangende van 
de printer-veranderingen aanbrengen 
in sjSraphLine (komt nog) of de rou¬ 
tine PrintBuffer iedere regel tweemaal 
laten afdrukken en dan pas een return 
geven. Maar nu de SetNLQ voor AS- 
Cll-printen: 

r_SetNLQ: 
lda#devicenr 
jsrSetDevice 
jsrlnitForlO 
jsrOpenPrint 
LoadWr3,s_NLQon 
/s_NLQon bevat de NLQ-string 
lda#4 

Zlengte van s_NLQon 
jsrPrintString 
jsrCloseprint 
jsrDoneWithIO 
rts 

s_NLQon: 

•byte $47,$lb,$45,$lb 


StopPrint wordt aangeroepen 
aan het einde van elke pagina. 
Deze procedure print eventu¬ 
eel nog overgebleven data in 
de outputbuffer uit (lees ver¬ 
der), en produceert een form- 
feed (de printer draait de pagina 
eruit). Bovendien wordt de printfile, 
die in de routine StartPrint (of StartAs¬ 
cii) was geopend, nu gesloten. 

r_StopPrint: 

lda#devicenr 

jsrSetDevice 

jsrlnitForlO 

jsrOpenPrint 

lda#FormFeed 

jsrffa8 

jsrClosePrint 

jsrCloseFile 

jsrDoneWithIO 

rts 

Zoals U zich mischien nog uit afleve¬ 
ring 4 kunt herinneren, reserveert de 
applicatie altijd 2 buffers van 640 by¬ 
tes voor het printen. De ene buffer 
heet de applicatiebuffer, de andere de 
printer-driver buffer. Naar deze twee 
buffers wordt gewezen door respec¬ 
tievelijk r0 en rl. PrintAscii is een rou¬ 
tine die een met een 0 beëindigde AS- 
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Cll-string print in het standaardkarak¬ 
ter van de printer. Alleen de eerste 
buffer (applicatiebuffer) wordt ge¬ 
bruikt. 


r PrintASCII: 

lda#devicenr 

jsrSetDevice 

jsrlnitForlO 

jsrOpenPrint 

ldarOL 

stahulppointer 
ldarOH 

stahulppointer+1 
10$ : 

lda$hulppointer 

cmp#0 

beq40$ 

cmp#CarRet 

bne20$ 

jsr$ffa8 

lda#LineFeed 

20 $: 

jsr$ffa8 

clc 

inchulppointer 

bcc30$ 

inchulppointer+1 

30$ : 

jmpl0$ 

40$ : 

jsrClosePrint 

jsrDoneWithIO 

rts 

De laatste routine is PrintBuf- 
fer, deze print een grafische 
regel van 640 bytes uit. De 
640 bytes zijn op de bekende 
C-64 manier gerangschikt, dus 
de eerste 8 bytes onder el¬ 
kaar, daarnaast de volgende 8 
bytes: dus 80 blokjes van 8 by¬ 
tes naast elkaar. 


buffer op hun kant gezet moeten wor¬ 
den (roteren), en dat in machinetaal! 
Helemaal feestelijk wordt het, als er 
met een 7-naaldse printer gewerkt 
wordt; de aangeleverde buffer is im¬ 
mers 8 puntjes diep, dus blijf je steeds 
met een rij zitten! Wegens plaatsge¬ 
brek kan ik geen volledige listing ge¬ 
ven van de wijze waarop een 7-naald¬ 
se driver moet werken. Het algemene 
idee is echter dat na 7 maal printen er 
7 rijen extra over zijn, zodat er dan 
twee regels geprint kunnen worden. 
Het precieze algorithme (de werkwij¬ 
ze) staat beschreven in illustratie 2. 
Er is hier overigens nog een lastig 
puntje: mocht de tekening niet uit een 
door 7 deelbaar aantal verticale blok¬ 
ken bestaan en het programma is 
klaar met printen, dan is er nog een 
aantal rijen die nog niet geprint zijn, 
opgeslagen in de eerste buffer. Daar¬ 
om moet de routine StopPrint (eerder 
besproken) voor 7-naalds printers 
ook deze resterende rijen uitprinten. 





r_PrintBuffer: 

lda#devicenr 

jsrSetDevice 

jsrlnitForlO 

jsrOpenPrint 

ldarOl 

star31 

ldarOh 

star3h 

jsrPrintPrintBuffer 

lda#Carret 

jsr$ffa8 

lda#LineFeed 

jsr$ffa8 

jsrClosePrint 

jsrDoneWithIO 

rts 


7-naalds trouble 

Het ruige werk begint nu. Het uitprin¬ 
ten van een buffer van 640 bytes in de 
grafische mode is ingewikkeld, om¬ 
dat, zoals ergens hierboven vermeld 
is, printers in verticale rijen bits prin¬ 
ten. Ergens zullen dus de bytes uit de 


PrintPrintBuffer: 
jsrTestBuffer 

;kijkt of er iets te printen 
is 

;in teller het aantal blokken 

Idateller 

bne5$ 

;niets, dan gauw klaar 

rts 

5$: 

jsrSetGraphics 
;geeft printcommando's die 
nog gedaan 

;moeten worden voordat er 640 
bytes 

;naar de printer gedumpt 
kunnen worden. 
lda#breedte 
sec 

sbcteller 

tax 

10 $: 

txa 

pha 

j srRotate 

;pakt een blok van 8x8, 
roteert dit 

;en zet het in printbaarblok. 


jsrSendBuff 
;zendt inhoud van 

printbaarblok naar 
;printer 
clc 
lda#8 
adcr3L 
lda#0 
adcr3H 
pla 
tax 
dex 

bnel0$ 

/volgende blokje 
rts 

;SUBROUTINES: 

TestBuffer: 
clc 

lda#[((breedte-1)*8) 

;lowbyte! 
adcr31 

lda#] ( (breedte-1)*8) 

;highbyte! 
adcr3h 

r3 nu op begin laatste blokje 
ldatbreedte 
stateller 
5$: 
ldy#0 
10$ : 

lda (r3),y 
cmp#0 
bnel5$ 
iny 
cpy#8 
bnel0$ 
clc 
lda#8 
sbcr31 
bcc$20 
decr3h 
20 $ : 

decteller 
bne 5$ 

15$: 

rts 

SendBuff: 
ldx#0 
10$ : 
txa 
pha 

ldaprintbaarblok,x 

jsr$ffa8 

pla 

tax 

inx 

cpx#8 

bnel0$ 

rts 

Rotate: 
sei 
ldy#7 
10$ : 

(r 3) , y 
ldx#7 
20 $: 
rora 

rorprintbaarblok,x 
dex 

bpl20$ 

dey 

bpll0$ 

cli 

rts 
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Als U een 9-naalds printer heeft met 
een 8-punts grafische modus, of een 
24-naaldse met een 8-puntse grafi¬ 
sche modus, dan kunt U de boven¬ 
staande routines bijna wel letterlijk 
overnemen. De enige moeilijkheden 
ontstaan bij de procedure SetGra- 
phics. Deze procedure dient de com¬ 
mando’s naar de printer te zenden die 
per regel gegeven moeten worden, 
rechtstreeks voordat de 640 bytes 
grafische data verzonden worden. 

SetGraphics: 

LoadBr3h,#0 

ldateller 

star31 

aslr31 

rolr3h 

aslr31 

rolr3h 

aslr31 

rolr3h 

sec 

•lda# [ (breedte*8) 

['=lowbyte van een word 
sbcr31 

stas_GraphLine+l 
lda#}(breedte*8) 

;']'=highbyte van een word 
sbcr3h 


stas__GraphLine 
LoadWr3,#s_GraphLine 
lda#5 

;lengte s_GraphLine 
jmpPrintString 
s_GraphLine: 

.byte 0,0,4,ESC 
EndAdres s: 

Zoals U gezien hebt, bestaat een prin- 
ter-driver alleen maar uit een uitwer¬ 
king in machinetaal van de routines, 
die 2 afleveringen geleden bij U geïn¬ 
troduceerd werden. Vele printer-dri- 
vers zullen daarom op elkaar lijken, 
en het zal vaak voorkomen, dat de 

commandostrings (s_.) het enige 

verschilpunt zijn. De hier geLISTe 
printer-driver lijkt bijvoorbeeld spre¬ 
kend op de Epson FX- 80 driver (stan¬ 
daard in het GEOS-pakket) en op de 
driver die in de GEOS-Reference Gui- 
de staat. Als U een goede (of verbe¬ 
terde) driver wilt schrijven aan de 
hand van dit artikel, dan zijn er twee 
methodes, volgens welke U kunt wer¬ 
ken: 

1) Reset de computer op een mo¬ 
ment, wanneer U er zeker van bent, 
dat de printer-driver die U wilt veran¬ 


deren in de computer zit (bijvoorbeeld 
onder het printen met GeoWrite). De 
driver is dan zoals altijd in het geheu- 
gengebied $7900 en verder te vinden. 
U kunt de driver dan met een machi- 
netaalmonitor aanpassen, en dan met 
Listing2 op disk zetten. Het nadeel 
van deze methode is, dat de machine- 
taallisting die U van de monitor krijgt, 
natuurlijk geen labels heeft. Er zal 
dan ook flink gezocht moeten worden 
naar de onderdeeltjes die veranderd 
dienen te worden. 

2 ) Gewoon opnieuw beginnen, en de 
driver van de grond af opbouwen. Dit 
is wat meer werk, maar het is mis¬ 
schien wel zo verstandig. Hoe dan 
ook, ik hoop dat dit artikel uw printer¬ 
problemen heeft kunnen oplossen. 
Volgende keer misschien meer over 
printers aan de user-poort. 

Peter Boncz 



SETTLE LIGHT SOFTS 


„SUPER SOUND SYSTEM” 

voor de C-64 

DAAR ZIT MUZIEK IN! 

★ Muziek uitprintbaar 

★ Uitgebreide edit mogelijkheden 

★ Zeer gebruikersvriendelijk 

★ SID-chip geheel instelbaar 

★ Metronoom naar keuze 

★ Muziek los afspeelbaar en afspeelbaar in eigen 
BASIC-programma 

★ Stemmen tijdens afspelen omschakelbaar 


In de betere computershop voor 


ƒ 45,” (diskette) 

incl. BTW 


Te bestellen bij: 

SALASAN 


Kwaliteits-software voor Commodore 


Postbus 5570, 1007 AN Amsterdam, Giro 5641219 
Tel. 020-203219 
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O wat kan het leven toch mooi zijn! Het warme zonnetje door de ramen, een vers kopje 
thee en vooral veel computers om je heen om te experimenteren. Glory, glory halleluja 
it’s just me, myself and my computer! We gaan weer in voor een volgende ronde, daar 
is ie weer!! 

Invullers en wegdragers 

W eer een splinternieuwe aflevering van de tips & trucs hoek. We hebben 
weer een bescheiden selectie gemaakt uit onze voorraad. Langzaam 
aan beginnen nu ook de tips en trucs van de lezers binnen te komen. Maar 
het is nog niet genoeg, WE NEED MORE STUFF! Dus, opsturen naar het 
wellicht al veel te vaak genoemde maar nog niet bekend genoeg zijnde 
adres.... 



Binnenin AmigaDOS 

De eerste lag al weer enige tijd op 
antwoord te wachten. Sander van der 
Kooij uit Bleiswijk schreef deze aan 
ons. Hij had een aantal vragen over 
de startup-sequence. 

0 1. Als ik nu met het install com¬ 
mando van een disk een bootdisk 
maak, kan ik hier dan ook een 
Startup-Sequence op zetten (zodat 
ik de disk-icon kan openen van 
deze schijf) 

° 2. Kun je in de startup-sequence 
ook het ’say’-commando gebrui¬ 
ken? 

° 3. Kun je in de startup-sequence 
ook een ’graphic’ op het scherm 
zetten (IFF afbeeldingen) door het 
te laden. 

ad 1. Eerst het antwoord op de eerste 
vraag. Dit is inderdaad mogelijk, San¬ 
der. Even een korte inleiding. Je hebt 
de disk geformatteerd met ’format’ en 
geïnstalleerd met ’instaN’. De disk zal 
nu in ieder geval als bootdisk gebruikt 
kunnen worden. Maak nu eerst een 
directory met de naam ’s’ aan. Voer 
vervolgens de onderstaande batchfile 
in met ED met de naam “s/startup-se- 
quence”: 
loadwb 

endcli >nil: 

Als je nu een aantal programma’s met 
hun bijbehorende icon informatie op 
schijf hebt staan, dit zijn de files welke 
dezelfde naam als het programma 
hebben alleen ze hebben de ’.info’ 
eraan toegevoegd gekregen dan kun 
je ze vanuit de Workbench openen 
met de muis. 

ad 2. Het is inderdaad mogelijk mbv. 
het ’say’-commando gesproken tekst, 
vanuit de startup-sequence, hoorbaar 


te krijgen. We gaan het nu alleen heb¬ 
ben over Workbench 1.3. De syntax 
van SAY luidt; 

SAY [opties] "string" 

Bij de opties valt te kiezen uit -m, -f, 
-r, -n, - s###, -p###, -x. 

Deze opties staan achtereenvolgens 
voor, male, female, robot intonatie, 
natuurlijke intonatie, speed (40-400), 
pitch (65-320) en de inhoud van ach¬ 
ter -x opgegeven filenaam hoorbaar 
maken. 

3. Standaard is het niet mogelijk om 
een grafische afbeelding op het 
scherm te zetten. Hiervoor zijn enkele 
PD Utilities te krijgen. Elders in dit 
blad zul je ook een routine vinden, in 
C, waarmee je een IFF plaatje kunt 
laden. Dit kan ook vanuit de startup- 
sequence gebeuren. 




Commodore 1901 
en Amiga? 

De nu volgende reactie kwam van de 
heer Hanekamp uit Delfzijl. Dhr. Ha- 
nekamp is in het bezit van een Com¬ 
modore 128 met 1901 monitor. Hij wil 
nu een Amiga 500 aanschaffen. Nu 
vroeg hij of het mogelijk was deze mo¬ 
nitor ook op de Amiga aan te sluiten. 
Geachte meneer Hanekamp. We 
hebben voor u wat na zitten vragen. 
Het blijkt met veel geknutsel wel mo¬ 
gelijk te zijn, echter het is niet aan te 
raden. De Amiga 500 beschikt over 
enkele video-uitgangen. Ze heeft een 
composiet uitgang, een RGB TTL uit¬ 
gang en een RGB lineair uitgang. De 
composiet-uitgang kan zonder meer 
op elke composiet ingang aangeslo¬ 
ten worden. Denk'hierbij aan de com¬ 
posiet ingang van uw 1901, een vi¬ 
deorecorder ingang en de ingang van 
een monochroom monitor. Hierbij 
krijgt u alleen maar een beeld met 
verschillende grijstinten. De volgen- 
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de, de RGB TTL-uitgang. Deze is in 
wezen gelijk aan de uitgang die op uw 
Commodore 128 zit. Met deze uit¬ 
gang is het maximale aantal kleuren 
echter beperkt tot 16, immers er is 
een Rood-, een Groen-, een Blauw¬ 
en een Intensiteit- lijn. Er zijn dus 4 
verschillende kleurcombinaties mo¬ 
gelijk, dus dit zijn 2M = 16 kleuren. 
Niet bepaald ’the Amiga way’. Dus 
blijft alleen de RGB lineair uitgang 
over. De 1901-monitor beschikt niet 
over een RGB lineair-ingang dus dit 
wordt moeilijk. Er is nog een tussen¬ 
oplossing welke geen aanpassing 
aan uw 1901-monitor vereist. Koop 
een TV-adaptor. Deze kosten plusmi¬ 
nus ƒ 90,=. produceren, naast een 
signaal voor een TV-toestel ook een 
composiet kleurensignaal. Deze kunt 
u wel weer op uw 1901 aansluiten. 
Toch levert dit niet het beeld dat de 
1084(S) of soortgelijke zal opleveren. 
Dan is er nog een laatste radicale op¬ 
lossing. Bouw uw 1901 om. Er zijn en¬ 
kele methodes bekend. Een Duits 
blad heeft recentelijk een schema ge¬ 
publiceerd om een 1901 monitor ge¬ 
schikt te maken voor RGB lineair. 
Toch raden we u aan, als u niet thuis 
bent in de TV-technieken, dit niet zelf 
te doen. 


Niets lukt! 

W. Willemse uit Winterswijk schreef 
ons een brief waarin hij duidelijk 
maakte dat wat hij ook probeerde, 
hem niets lukte. Geen programma 
kwam goed, de voorbeelden wilden 
bij hem niet werken, etcetera. 

Het is nog steeds zo, dat de BASIC- 
programma’s van de Amiga zonder 
checksummer ingetypt moeten wor¬ 
den. We zijn druk doende een goed 
lopende checksummer in elkaar te 
knutselen. Tot die tijd zult u moeten 
proberen de listings foutloos in te ty¬ 
pen. Eén goede fout en het program¬ 
ma gaat goed onderuit. 

Waarschijnlijk zullen uw fouten, me¬ 
neer Willemse, ook wel uit dezelfde 


bron voortkomen. Het blijft dus een 
zaak de programma’s te 'debuggen' 
tot het bittere einde! 

Sample problemen 

Het blijft nog steeds een verrassende 
zaak, de geluidsmogelijkheden van 
de Amiga. De Amiga registreert ge¬ 
luid door het analoge geluid om te zet¬ 
ten naar een digitaal equivalent. Deze 
slaat zij op in haar geheugen. Als de 
gebruiker er om vraagt zal zij het ge¬ 
luid weer omzetten naar haar analoge 
tegenhanger om dat vervolgens naar 
een aan de Amiga gekoppelde ver¬ 
sterker te sturen. En voila, daar klin¬ 
ken de muzikale hoogstandjes u om 
de oren. Echter, één nadeel. Een 
mooi geluid vereist veel geheugen. 
Veel geheugen in de computer en 
veel geheugen op de harddisk, cq. 
diskdrive. J.B. Dekker uit Apeldoorn 
kwam met het volgende probleem te 
zitten. Door de lengte van de geluid- 
samples duurt het onaanvaardbaar 
lang om ze weer in te lezen in BASIC. 
Bestaat hiervoor een mogelijkheid om 
ze, bv. met behulp van een library, 
sneller in te lezen? 

Ja, mijnheer Dekker, hiervoor bestaat 
inderdaad wel een oplossing. We zijn 


eens in onze oude programma’s gaan 
zitten snuffelen en hebben hieruit een 
oplossing geëxtraheerd (mooi woord 
hel...uit de Van Dalen gehaald!...). 
Bekijk het onderstaande programma 
en experimenteer ermee. Nog even 
uw hint voor extra tips & trucs, we zi- 
ten er altijd verlegen om dus stuur ze 
maar op!! 

DECLARE FUNCTION xOpen& 
LIBRARY 

DECLARE FUNCTION xReadS 
LIBRARY 

DECLARE FUNCTION Al- 
locMemS LIBRARY 

LIBRARY "dos.library" 

LIBRARY "exec.library" 


INPUT "Filenaam :";naam$ 
INPUT "Hoeveel bytes inle¬ 
zen :";bytes% 

'Met xOpen is het moge¬ 
lijk een bestand te openen 
'De syntax van xOpen : 
pointers = xO- 
pen&(naam+chr$(0),modes) 

'de modes zijn : MODE_RE- 
ADWRITE = 1004 (lezen en 
schrijven) 

r 

MODE_OLD = 1005 (al¬ 

leen lezen) 

/ 

MODE_NEW = 1006 (al¬ 

leen schrijven) 

fp&=xO- 

pen&(SADD(naam$+CHR$(0)),100 
5) 

IF fp&=0 THEN PRINT "File 
bestaat niet!":END 

MemOpts&=2 A 0+2 A 16 
BufSize&=bytes%+5 
BufAdr&=AllocMem&(BufSi- 
zes,MemOptss) 

'Met xRead leest men gege¬ 
vens van de file naar een 
door de 

'gebruiker aangegeven 
buffer. Deze dient men aan 
te maken met 

'de exec-functie AllocMem 
'De syntax van xRead : 

'aantal_gelezen = xRe- 
ad&(pointers,buffera- 
dresS,aantal_te_lezen%) 

aantal = xReads(fp&, Bu- 
fAdrS,bytes%) 

IF aantal bytes% THEN 
PRINT "Uitgelezen aantal 
PRINT aantal;" bytes inge¬ 
lezen vanaf adres 
$" ;HEX$ (BufAdrS ) 

PRINT "Ik sluit de file 
nu weer af en geeft het ge¬ 
heugen weer vrij!" 

'Met xClose sluit men de 
met xOpen geopende file 
weer af 

'De syntax : xOpens(poin¬ 
ters ) 

CALL xCloseS(fpS) 

CALL FreeMems(BufAdrS, Buf- 
SizeS) 
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Tips en Trucs Wantedü 
Stuur ze op naar Commodore 
Info, Postbus 43048, 1009 ZA, 
Amsterdam, en vermeldt er bij 
’Amiga Tips & Trucs’ 


Amiga en haar karakter(s) 

Normale karakters op het scherm 
weergeven is bij de Amiga ’een fluitje 
van een cent’. Toch hebben de mees¬ 
te Amiga-gebruikers nog grote moeite 
met de bijzondere karakters, zoals de 
trema’s, ringel-s’en, etcetera. Uiter¬ 
aard kun je via SetMap een Frans of 
een Duits toetsenbord kiezen maar 
dat geeft weer andere problemen. Er 
is echter een veel eenvoudigere op¬ 
lossing. Een woord als’schön’ tikt u 
als volgt in. 

° tik eerst normaal ’sch’ 

° druk op de LINKER ALT-toets en 
houdt deze ingedrukt 
0 druk nu op de lettertoets ’K’ (er ge¬ 
beurt niets zichtbaars) 

° laat de ALT-toets los en tik een ’o’ 
en zie: achter de ’sch’ verschijnt een 
’ö’. Nu nog een ’n’ er achter en ’schön’ 
staat er bepaald ’schön’! 

Ditzelfde kunt u doen voor alle andere 
accenten. Gebruik hiervoor de LIN¬ 
KER ALT-toets in combinatie met de 
lettertoetsen F, G, H en J. 
Rechtstreeks kunt u bijvoorbeeld in¬ 
typen: de plusminus, een combinatie 
van de LINKER ALT-toets en de ’z’. 
Gaat u alle mogelijkheden maar eens 
na en probeer ook de combinatie 
SHIFT-, LINKER ALT- en alle letter¬ 
en cijfertoetsen. Deze methode werkt 
altijd: in de CLI, in Amiga-BASIC etce¬ 
tera. 

J.B. Dekker, Apeldoorn. 



Hexa- en decimaal 

Het blijft altijd weer lastig, het omzet¬ 
ten van decimaal naar hexadecimaal 
en omgekeerd in een C-programma. 
We hebben hiervoor een kleine oplos¬ 


sing. Voeg de onderstaande listing in 
uw programma in. 

char *dtoh(getal) 
int getal; 

{ 

char hex[2]; 
int diglo,dighi; 

dighi=getal/16; 
diglo=getal-(16*dighi); 

if (dighi<0x0a) 

hex[0]=dighi+0x30; 
else 

hex[0]=dighit0x37; 

if (diglo<0x0a) 

hex[1]=diglo+0x30; 
else 

hex[l]=diglo+0x37; 
return (hex); 

} 


htod(getal) 
char *getal; 

{ 

int dec; 

if(getal[0]<0x3a) 
dec=((int)toupper(getal[0])-0x3 
0)*16; 

else 

dec= ( (int)toupper(getal[0])-0x3 
7)*16); 

if(getal[1]<0x3a) 
dec=dec+(int)toupper(getal [ 1]) - 
0x30; 

else 

dec=dec+(int)toupper(getal[1])- 
0x37; 

return(dec); 

} 

De aanroep van beide routines ver¬ 
schilt een klein beetje. De routine 
htod() kan gewoon als een functie 
aangeroepen worden, dus: 

dec_getal = htod("hex_getal"); 

De routine dtoh() verschilt een klein 
beetje. Hierbij moet de uit de routine 
gekomen string gekopieerd worden in 
een andere string. Een voorbeeld: 
main() 

{ 

char hex_getal[2]; 

strcpy(hex_getal,dtoh(10)); 

} 

Hierbij zal dan ’0a’ gekopieerd wor¬ 
den in de string ’hexjgetal’. 

Vreemd geprinte tekens!? 

Vreemde tekens op het scherm krij¬ 
gen is mogelijk, zie het eerste rubriek¬ 
je. Hoe krijgen we deze karakters nu 
op de printer? Er is wel wat voorberei¬ 
dend werk nodig, maar daarna is het 
gewoon weer een kwestie van de juis¬ 


te karakters via het toetsenbord in¬ 
voeren. In listing 1 ziet u een invoer- 
subroutine. Ook al zou u de printer 
niet willen gebruiken, deze subroutine 
heeft toch wel een aantal voordelen, 
te weten: 

0 ALLE karakters kunnen worden 
ingevoerd, dus ook de in het eerste 
rubriekje genoemde tekens, kom¬ 
ma’s, puntkomma’s en zelfs aanha¬ 
lingstekens. 

0 de cursor is op het scherm te zien 
als een professioneel ogend 
streepje. 

0 u kunt het aantal in te voeren ka¬ 
rakters beperken (iets wat met IN¬ 
PUT of LINE INPUT niet mogelijk 
is). 

Nu weer terug naar de printer. U kunt 
zien dat in listing 1 de plaats is aange¬ 
geven waar de printerinstructies moe¬ 
ten komen. Listing 2 is een voorbeeld 
hoe deze instructies zouden kunnen 
luiden. Houdt er echter wel rekening 
mee dat in dit voorbeeld rekening is 
gehouden met gebruik van een Com¬ 
modore printer, echter in de meeste 
gevallen zal deze listing correct zijn. 
Mocht het toch nodig zijn de codes 
aan te passen, raadpleeg dan de 
handleiding van uw printer. Wijzig dan 
de codes aan de RECHTERZIJDE 
van de listing. Mocht u eventueel niet 
weten wat de CHR$ aan de LINKER¬ 
ZIJDE beteken, dus welke codes het 
zijn, typ ze in het BASIC uitvoerven- 
ster in en het teken wordt afgeprint. 

J.B. Dekker, Apeldoorn. 

Listing la. Hoofdprogramma 

CLS: PRINT 

TAB(25)"INVOER-SUBROUTINE" 
FOR x=l TO 5 
PRINT: CALL Invoer 
a$ (x)=tekst$ 

NEXT: CLS 

FOR x=l TO 5:PRINT a$(x): NEXT 
END 

Listing 1b. Invoersubroutine 

SUB Invoer STATIC 
SHARED tekst? 
tekst$="":z$="" 
invoerlus: 

PRINT CHR$(95);CHR$(8); 
z$=INKEY$ 

IF z$="" THEN invoerlus 
IF z$=CHR$ ( 8 ) THEN GOSUB 
herstel:GOTO invoerlus 
IF z$=CHR$(13) THEN terug 
ac=ASC(z$) 

IF ac>2 6 AND ac<32 THEN 
invoerlus 
verder: 

PRINT z$ 
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printercodes: 


'hier moeten de printer 

'codes komen 


nogverder: 

tekst5=tekst$+z$ 

lengte=LEN(tekstS) 

IF lengte>78 THEN klaar 
GOTO invoerlus 
terug: 

IF tekst$=" " THEN 
tekst$=CHR$(13) 
tekst$=LEFT$(tekst$,lengte-1) 
PRINT z $ 

RETURN 
klaar: 

END SUB 

Listing 2. Printercodes 

IF z $=CHR$(196) THEN 
z$=CHR$(142) 

IF z$=CHR$(228) THEN 
z $=CHR$(132) 

IF z$=CHR$(203) THEN 
z $=CHR$ (144) 

IF z$=CHR$(235) THEN 
z $=CHR$(137) 

IF z $=CHR$(214) THEN 
z$=CHR$(153) 

IF z$=CHR$ (246) THEN 
z $=CHR$(148) 

IF zS=CHR$(220) THEN 
z $=CHR$(154) 

IF z$=CHR$(252) THEN 
z$=CHR$ (129) 

IF z $=CHR$(2 32) THEN 
z$=CHR$(138) 

IF z$=CHR$(233) THEN 
z $=CHR$ (130) 

IF zS=CHR$(239) THEN 
z $=CHR$(139) 

IF z$=CHR$(231) THEN 
z$=CHR$(135) 

IF z$=CHR$ (223) THEN 
z $=CHR$(225) 

IF z $=CHR$(187) THEN 
z $=CHR$(175) 

IF z $=CHR$(171) THEN 
z$=CHR$(174) 

IF z$=CHR$(188) THEN 
z $=CHR$(172) 

IF z $=CHR$ (18 9) THEN 
z$=CHR$(171) 

IF z $=CHR$(177) THEN 
z$=CHR$(241) 

rnd in C 

Nee, dit is geen begin van een klas¬ 
siek meesterstuk. Ook is het geen 
kinderrijmpje. Gewoon simpel, hoe 
krijg ik random getallen in C? 

Het probleem was, waar krijg ik de 
’seed’ waarden vandaan. ’Seed’ 
waarden zijn de basisggetallen waar 
aan de hand van het randomgetal 
wordt berekend. Na enig gezoek leek 
het ons niet al te moeilijk. De ClA’s 
van de Amiga bevatten beide een 
EventCounter. Dit is een heel snel lo¬ 
pende teller. Pak het onderste byte, 


deze ’loopt’ immers het snelst en tra- 
laa... daar is je ’Seedvalue’. De routi¬ 
ne: 

float rnd(x) 
int x; 

{ 

UBYTE *Seed=(UBYTE *)0xbfd800; 
return (float*Seed/255.00) ; 

} 

Onthoud wel, de include file ’exec/typ- 
es.h’ moet meegecompiled worden, 
immmers we gebruiken de variabele 
UBYTE. Deze is geen standaard C 
variabele en dient dus gedefinieerd te 
worden. Nog één opmerking, ont¬ 
houdt dat de teruggekregen waarde 
van het type ’float’ is. Men dient dus 
ook de floating point library mee te lin¬ 
ken! 



Copperaardigheden 

Grafische grapjes doen het nog 
steeds goed in computerland vandaar 
deze. Het programmaatje zorgt voor 3 
kleurige balken op het beeldscherm in 
de kleuren blauw, rood en groen. Het 
aardige van dit demootje is dat de truc 
met de Copper wordt gedaan. Het 
programmeren van de Copper ge¬ 
beurt niet vanuit machinetaal, C of 
Modula 2, nee gewoon vanuit 
AmigaBasicü 

De Copper is één van de co-proces- 
soren welke zich tot taak gerekend 
heeft om op bepaalde tijdstippen re¬ 
gisters van de Custom chips met be¬ 
paalde waarden te vullen. 

Het programmeren van de Copper 
gebeurt met drie commando’s die de 
Copper begrijpt, namelijk Wait, Move 
en Skip. Alleen de eerste twee wor¬ 
den regelmatig gebruikt. Het com¬ 
mando Wait zorgt ervoor dat de Cop¬ 
per wacht tot een bepaalde electro- 
nenstraal positie wordt bereikt en met 
Move kunt u een register een bepaal¬ 
de waarde geven. Op die manier kan 
een programma gemaakt worden die 
de Copper stuurt. Een dergelijk pro¬ 
gramma noemt men een Copperlijst. 
Hoe kunnen we nu een Copperlijst 


vanuit BASIC programmeren. Bekijk 
het volgende programma eens en ex¬ 
perimenteer er eens wat mee: 

DECLARE FUNCTION ViewAddressS 
LIBRARY 

DECLARE FUNCTION 

ViewPortAddress LIBRARY 
DECLARE FUNCTION AllocMemS 
LIBRARY 

LIBRARY "intuition.library" 
LIBRARY "graphics.library" 
LIBRARY "exec.library" 

COLOR 1,0 
PALETTE 0,0,0,0 
Initialize 
WaitC 0,20 
MoveC 384,0 
MoveC 386,4095 

'Fade van zwart naar blauw en 
tekst van wit naar blauw 

FOR 1%=100 TO 115 
WaitC 1%,2 0 
MoveC 384,1%-100 
MoveC 

386, 4095 - (256* (1% —100))- (16 
*( 1 %- 100 )) 

NEXT 1% 

'Fade van blauw naar rood, 
tekst blijft gelijk 

FOR 1%=116 TO 131 
WaitC 1%,2 0 
MoveC 

384,131-1%+(256*(1%-116)) 
NEXT 1% 

'Fade van rood naar groen, 
tekst blijft gelijk 

FOR 1%=132 TO 147 
WaitC 1%,2 0 
MoveC 

384,3840-(256* (1% —132)) + (16 
*(1%-132) ) 

NEXT 1% 

'Fade van groen naar zwart, 
tekst van blauw naar wit 

FOR 1%=148 TO 162 
WaitC 1%,20 

MoveC 384,240-( (1%-148)*16) 
MoveC 

386,15+(256*(1%-148)) + (16* ( 
1 % — 14 8 ) ) 

NEXT 1% 

Activate 
LIBRARY CLOSE 
END 

SUB Initialize STATIC 
SHARED UCopList& 

MemOpts&=2 A 0+2 A l+2 A 16 

UCopList&=AllocMem(12,MemOp 
ts&) 

IF UCopList&=0 THEN ERROR 7 
END SUB 
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SUB Activate STATIC 
SHARED UCopLiSt& 

WaitC 10000,256 

viewport&=ViewPortAddress&( 
WINDOW(7)) 

POKEL viewport&+20,UCopList& 
CALL RethinkDisplay 
END SUB 

SUB WaitC(y%,x%) STATIC 
SHARED UCopList& 

CALL CWait(UCopList&,y%,x%) 
CALL CBump(UCopList&) 

END SUB 

SUB MoveC(reg%,waarde%) STATIC 
SHARED UCopListS 
CALL 

CMove(UCopListS,reg%,waarde 
%) 

CALL CBump(UCopListS) 

END SUB 

Beeldige grapjes 

De nu volgende routines zijn niet zo¬ 
zeer als onafhankelijk programma 
nuttig, het zijn echte tips. Wat u nodig 
heeft, kunt u eruit halen. Wat doen 
ze? Het zijn, zoals de titel al verraadt, 
routines die grapjes met het beeld¬ 
scherm uithalen. De eerste is een pro¬ 
gramma in BASIC. Het zorgt ervoor 
dat het beeldscherm met de muis- 
pointer mee verschuift. Hoe wordt dit 
gedaan, zult u zich afvragen. Op zich¬ 
zelf niet zo moeilijk. In de ViewPort 
van het scherm worden de x- en y-off- 
set van het scherm opgeslagen. Door 
deze waarden aan te passen en ver¬ 
volgens de routine ’RemakeDisplayO’ 
aan te roepen zal het beeldscherm op 
een andere plaats te zien zijn. De 
tweede routine is rond dezelfde basis 
opgebouwd. Het is een routine in C 
welke ervoor zorgt dat het beeld¬ 
scherm als een gek begint te trillen. 

• Routine 1. 

DECLARE FUNCTION ViewAddressS 
LIBRARY 

LIBRARY "intuition.library" 

ViewPort&=ViewAddress& 

WHILE MOUSE(0)=0 
dx%=66+MOUSE(1)/5.8 
dy%=14+MOUSE(2)/2.5 
IF dx%>128 THEN dx% = 128 
POKEW ViewPort&+12,dy% 

POKEW ViewPort&+14,dx% 

CALL RemakeDisplay 
WEND 

LIBRARY CLOSE 
END 

Zoals u ziet, geen ingewikkelde routi¬ 
nes of berekeningen. De tweede rou¬ 
tine is in C. Deze is ook al niet veel 
moeilijker. 


• Routine 2. 

#include "functions.h" 
finclude "exec/types.h" 
#include ''graphics/view.h" 
ffinclude 

"intuition/intuitionbase.h" 


struct IntuitionBase 
*IntuitionBase; 

main () 

{ 

int i,t; 

char *mouse=(char *)0xbfe001; 

if ( ! (IntuitionBase=(struct 
IntuitionBase *) 

OpenLibrary("intuition.libr 
ary",0L))) 

{ 

print ("Geen intuition\n"); 
exit(FALSE); 

} 

while((*mouse&0x40)==0x40) 

{ 

for (i=20;i<40;i++) 

{ 

IntuitionBase->ActiveScreen 
->ViewPorfc.DyOffset=(SHORT) 
i ; 

IntuitionBase->ActiveScreen 
->ViewPort.DxOffset=(SHORT) 
i ; 

RemakeDisplay(); 
for(t=0;t<5000;t++); 

} 

} 

CloseLibrary(IntuitionBase); 

) 



TestDrive 

Herinnert u het zich nog? De eerste 
dag dat u testdrive in uw bezit had. 
Als een kind zo blij. Tegen de tikken¬ 
de klok racen, nou ja, tegen de berg¬ 
wand racen zul je bedoelen, of het ra¬ 
vijn IN racen. Goed, er is een oplos¬ 
sing om toch met 140-160 mph. door 
de bochten te racen zonder dat u in 


de slip raakt en dat er ongelukken ge¬ 
beuren. Houdt tijdens de bocht de 
vuurknop ingedrukt totdat u weer op 
het rechte stuk zit. Tataaa! Geen pro¬ 
blemen. En nu maar hopen dat er zo- 
meteen de tekst verschijnt: ’Did you 
see any low flying planes’. 

Muis Cleanex 

Heeft u er ook al last van gehad? 
Vooral als u uw Amiga al wat langere 
tijd bezit? De muis reageert niet meer 
zo snel als dat hij vroeger deed. Of is 
dat maar verbeelding. Nee, dat is 
geen verbeelding. De muis wordt me¬ 
chanisch gestuurd, dat wil zeggen, de 
bol in de muis draait twee rolletjes 
rond welke uiteindelijk via electroni- 
sche uitleesmethoden voor de x en y 
pulsjes zorgen. Deze rolletjes kunnen 
op een gegeven moment zo baden in 
het stof dat ze niet meer accuraat 
kunnen reageren. Vooral bij snelle 
bewegingen maken ze er helemaal 
een puinhoop van. Wat er aan te 
doen. Schroef de muis open (is de ga¬ 
rantie al verlopen?!?) en haal het stof 
bij de rolletjes vandaan. U kunt ze niet 
missen. Ze zitten in het gat waar de 
bal hoort te rollen. 

Wat een smerige boel hè, al dat stof! 

Diskdrives zonder 
schakelaar? 

Beschikt u over zo’n losse diskdrive 
zonder schakelaar? Er zijn program¬ 
ma’s, vooral als niet over 512K uit¬ 
breiding beschikt, die verlangen dat u 
de diskdrive ontkoppelt. Dit betekent 
dat u de stekker van de drive uit de 
Amiga moet halen. Dit is lastig en op 
de lange duur zelfs funest voor uw 
stekkers. Dan maar zelf een schake¬ 
laar er op bouwen. Het is niet zo las¬ 
tig. Pak uw Amiga handboek erbij. 
Kijk naar de aansluiting genaamd ’ex- 
ternal disk connector’. Op lijn 1 staat 
het RDY signaal. Door deze lijn door 
te knippen en er een schakelaar er¬ 
tussen te zetten bereikt u het gewen¬ 
ste. 

PokeMania! 

Er zijn nogal wat manieren om je Ami¬ 
ga goed onderuit te laten gaan. Hier¬ 
onder zijn een aantal poke’s verza¬ 
meld waardoor bepaalde functie Ami¬ 
ga veranderd kunnen worden. We 
staan niet helemaal in voor de gevol¬ 
gen, want de kans is niet klein dat u 
uw Amiga opnieuw op moet starten. 
Gebruik AmigaBasic voor het invoe¬ 
ren van de poke’s. 
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poke 8394,43 - do 

cursor wordt uitgeschakeld 
poke 498736982,243 : de drive 

motor wordt aangezet 
(hopelijk geen 
read-errors ! ) 
poke 498736982,0 : de 

drive motor gaat weer uit. 
poke 564748398,54 : het 

audio-filter en de LED 

gaat uit 

poke 564748398,12 : het 

audio-filter en de power 
LED gaan weer aan. 
poke 12132,98 : een 

andere manier om je 
diskdrive naar de 

filistijnen te helpen. 

Haal de diskette eruit en 
waaauw! Schijnbaar 
overleeft de drive het 
wel. 

poke 12137,x : voor x 

een getal van 1 tot 15. 

Dit bepaalt de snelheid 
waarmee de diskdrive 
gecontroleerd wordt op 
een nieuwe schijf. (x=45 
geen controle) 
poke 1214,234 : een 

verandering in 
AmigaBasic. Pak de 


startschijf alvast maar 
weer. Typ in; 'Load "een 
programmanaam"' en geef 
RETURN. Zo, die zit goed 
vast nietwaar! 

poke 8388,76 en poke 8394,12 
zijn eigenlijk de moeite 
niet waard want je 
computer zit 
onherroepelijk vast. 
poke 8967,34 : geen 

muispointer meer totdat 
de muis weer bewogen 
wordt. 

poke 8977,34 : 

helemaal geen muispointer 
meer, ook niet als je de 
muis beweegt. 

poke 8977,12 : aaah, 

daar is de muispointer 
weer! 

We besluiten met de woorden van de 
persoon die dit alles instuurde, we ho¬ 
pen dat jullie Amiga nog leeft na deze 
poke’s. Om de boel af te sluiten volgt 
een beeldflitser. 

REM Beeldflitser 
FOR a=0 TO 255 

POKE 30000000,a 


NEXT a 
RUN 

Tot Slot 

Dit was het weer, luitjes! Ons koekblik 
is voor deze keer weer leeg, de post¬ 
vakken zijn omgekeerd en onze her¬ 
senen staan weer op zes uur! Voordat 
we ophouden eerst nog even onze 
sponsor: 

“De oproep om meer 'response’ geldt 
nog steeds want we hebben nimmer 
genoeg informatie. We hebben uw 
hulp nodig om deze hoek zijn 
levensvatbaarheid te laten behouden. 
Daarom insturen die tips en trucs, zo¬ 
dat we u van een constante stroom 
van informatie kunnen voorzien.” 
Leuk hè, zo’n jingle tussendoor. Het 
lijkt wel een radioprogramma! Goed, 
morgenstond brengt goud in de mond 
zegt men, wij houden het hier voor ge¬ 
zien. 



SETTLE LIGHT SOFTS 


DAMMEK 

Eindelijk een tegenstander op niveau! 

* Nederlandse handleiding met regels en taktische tips 

* demonstratie-partijen 

* invoeren van zetten met toetsen, cursor of joystick 

* terugnemen van vorige zet 

* zelf opzetten van standen 

* computer speelt zwart of wit 

* spiegelen van bestaande stand 


In de betere computershop voor 

ƒ 45 5 “ (diskette, incl BTW) 


Te bestellen bij: 

SALASAN 


Kwaliteits-software voor Commodore 


Postbus 5570, 1007 AN Amsterdam, Giro 5641219 
Tel. 020-203219 
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Scannen, kopiëren en printen met één apparaat. Dat is het gemak ten top. En als de 
kwaliteit van al die afdrukken dan ook nog eens van goede kwaliteit is, dan heb je voor 
ƒ 1400,- wel iets moois in huis. 


Universal scanner 


Scannen, kopiëren en printen in één 

H et scannen en daarna op de computer bewerken van illustraties, foto’s, 
dia’s en andere plaatjes is een veel toegepaste techniek onder compu- 
terkunstenaars, reclamemakers en uitgevers. Vaak wordt voor dit soort 
bewerkingen echter zeer dure apparatuur gebruikt. Ook de Amiga-hobbyist 
kan, met de Universal scanner en software als De Luxe Paint, Digipaint of 
Photonpaint de artistieke aspiraties achter het beeldscherm botvieren. Het 
resultaat kan daarna via dezelfde scanner uitgeprint worden. Andere toe¬ 
passingen waar het apparaat geschikt voor is zijn desktop publishing, het 
aanleggen van een graphics database, zakelijk gebruik e.d. 


Compact apparaat 

De Universal scanner is een slank uit¬ 
gevoerd apparaat van 40 bij 36 en 11 
centimeter hoog. Een roze en licht¬ 
blauwe bedienknop aan de voorkant 
geven een extra tintje aan het stem¬ 
mige grijs van de machine. De roze 
knop start de kopieerprocedure en 
met de blauwe knop kan de weergave 
van de kopie of de scan traploos van 
licht naar donker ingesteld worden. 
Twee LEDs geven aan of het appa¬ 
raat aan staat en of de papierrol op is. 
Aan de linkerkant zitten de aan/uit 
knop en het stroomcontact. 

Het vervangen van de - thermische - 
papierrol is een fluitje van een cent. 
Je drukt op de knop aan de rechter¬ 
kant van het apparaat, er floept een 
deksel omhoog en de rol kan er inge¬ 
stopt of uitgelicht worden. In het dek¬ 
sel zit de thermokop gemonteerd. 

De bovenplaat van de scanner be¬ 
weegt bij het kopiëren van rechts naar 


links over de vaste fluorescentielamp 
en de plaat kan ook nog eens een 
stukje omhoog, zodat ook dikke boe¬ 
ken op de glasplaat gelegd kunnen 
worden. Aan het eind van de rit gaat 
het deksel niet vanzelf terug naar de 
beginpositie, maar moet met de hand 
teruggeschoven worden. 

De verbinding met de computer zit 
eenvoudig in elkaar. Een kabel wordt 
aan de parallelle poort van de Amiga 
verbonden en de Centronics connec- 
tor aan de scanner. 

Scannen 

De scanner geeft alleen zwart-wit 
beelden. Als de software diskette in 
de drive wordt gestopt en de Amiga 
aangezet, volgt het booten en ver¬ 
schijnt de workbench waarvandaan 
via een icoon het scanproces gestart 
kan worden. Omdat de workbench 
ook geheugen opslokt kan men, als er 


maar 1 MB geheugen aanwezig is, 
niet het maximaal aantal van 2048 lij¬ 
nen scannen. Om dit te voorkomen 
moet men tijdens het opstarten Ctrl-D 
ingedrukt houden en vanuit de CLI 
‘scanner’ intikken. 

Vanaf het scanner titelscherm kunnen 
twee resoluties aangegeven worden. 
Je hebt de keus uit een 640 x 512 of 
640 x 256 resolutie. Bij de 640 x 512 
mode kun je kiezen of de menu items 
in hun eigen venster blijven en geac¬ 
tiveerd worden door de muis, of dat 
de items permanent aan de rechter¬ 
kant van het scherm zichtbaar blijven. 
Met de menu items wordt de scanner 
gestuurd. Items zijn Start Scan, 1:1, 
1:2 en 1:4, FlipV, FlipH 
1:1 geeft de beste resolutie in twee 
grijstinten. Van het origineel is 1/16 
deel op het scherm zichtbaar en dit 
deel kan over het scherm bewogen 
worden. 

1:2 geeft de scan in vijf grijstinten 
weer en 1/4 van het plaatje is zicht¬ 
baar. Ook dit deel kun je over het 
scherm verplaatsen. 

1:4 geeft het beeld in volledig weer in 
16 grijstinten. 

Met de Flip-opties kan het beeld ge¬ 
kanteld worden. 

Menu 

Behalve de bovengenoemde items is 
er aan de bovenkant een balk met 
pull-down menu’s; het project-menu 
voor bestandsoperaties; het scan- 
menu voor het veranderen van de 
scan parameters zoals aantal scanlij¬ 
nen en contrast; het screen menu 
voor saven en printen en het window 
menu voor het markeren en bewaren 
van delen van het scanoppervlak. 
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Het origineel 


Bij het scannen moet er wel op gelet 
worden dat de bovenplaat op de goe¬ 
de startpositie staat. Het apparaat wil 
de volledige afstand afleggen. Als de 
plaat dus niet bij het begin staat en 
aan het eind komt, stopt de scan. Als 
de bovenplaat vervolgens een stukje 
terug geduwd wordt gaat het scannen 
verder. Er verschijnt in ieder geval 
geen mededeling op het beeldscherm 
als de plaat niet vanaf de startpositie 
begint. 

Bewerken en printen 

Als de scan bewerkt moet worden 
moet men het eerst via een van de 
save-functies wegschrijven. Daarna 
kan het in diverse tekenpakketten in¬ 
gelezen en bewerkt worden. 

Om een IFF-bestand op de printer af 
te drukken wordt in het screen menu 
de print optie gekozen. Alleen datge¬ 
ne wat op het scherm staat wordt af¬ 
gedrukt. Grijstonen worden omgezet 
in een zwart-wit raster. 

Met de huidige software worden 440 
pixels horizontaal afgedrukt. 

Printen vanuit DeLuxe Paint 

Het printen vanuit bijvoorbeeld DeLu¬ 
xe Paint III gaat als volgt: met de 
scannerdiskette opstarten en met 
Ctrl-D onderbreken. Intikken Assign 


PC Starter 



Gescand en daarna geprint 


Thermo: RAM: (voor 2 MB), DHO: 
(voor hard disk), DFO: of DF1: (voor 
diskdrive). Daarna LOADWB en van¬ 
uit de Workbench op het icoon CMD 
gaan staan en één keer aanklikken. In 
het Infomenu de TOOLTYPES veran¬ 
deren in THERMOTEMP.FILE. Daar¬ 
na vanuit de Workbench het program¬ 
ma CMD opstarten en DPAINT. In 
DPAINT kun je nu het plaatje laden, 
bewerken en printen. Hij gaat nu niet 
printen, maar schrijft het bestand weg 
naar de eerder opgegeven drive of 
disk, onder de naam TEMP.FILE. 
Vervolgens verlaat je DPAINT en bij 
minder dan één MB is het beter de 
computer te resetten wegens te wei¬ 
nig geheugen. In dit geval weer on¬ 
derbreken met Ctrl-D en ASSIGN 
THERMO: naar de eerder gekozen 
optie (disk of drive). Vanuit de Work¬ 
bench het programma THERMOP- 
RINT opstarten en deze zal vanuit de 
geassignde drive het programm 
TEMP.FILE uitprinten. Het is dus een 
nogal omslachtige manier van doen, 
maar dat heeft alles te maken met het 
geheugen van 1 MB. Het resetten 
dient immers om het geheugen leeg 
te maken. Als er meer geheugen aan¬ 
wezig is, dan wordt de procedure 
sterk ingekort. 


Kwaliteit 

Volgens opgave van de fabrikant be¬ 
draagt het oplossend vermogen van 
de scanner 200 dpi en worden de ori¬ 
ginelen in 16 grijstinten weergegeven. 
De afdrukkwaliteit is aanmerkelijk be¬ 
ter dan wat de gemiddelde matrixprin¬ 
ter voor elkaar krijgt, maar een laser¬ 
printer, met meestal een oplossend 
vermogen van 300 dpi, drukt diepere 
zwarten af en geeft een hoger con¬ 
trast. Maar daar betaal je dan ook 
voor. 

Ook moetje deze universele machine 
niet vergelijken met een volwassen 
kopieerapparaat, dat meer contrast 
kan weergeven, maar al met al is de 
kwaliteit van de scans en de afdruk¬ 
ken zeer bevredigend. 

Opvallend is de snelheid waarmee de 
machine werkt. Binnen tien seconden 
rolt de afdruk van een A4-pagina eruit 
en het scannen gaat even snel. 

Configuratie 

Wij hebben de scanner op een Amiga 
2000 uitgetest. Volgens de fabrikant 
kan hij ook gebruikt worden in combi¬ 
natie met de Amiga 500 of de 1000. 
Wel is een geheugen van minimaal 1 
MB nodig en liever meer. Verder is 
een diskdrive nodig. 

De Universal scanner is gemaakt 
door het Duitse Print Technik. Op het 
apparaat, onder de bewegende bo¬ 
venplaat, zijn gebruiksaanwijzingen in 
de Duitse taal geplakt maar dat mag 
geen bezwaar zijn: het apparaat is 
zeer eenvoudig in de bediening. Bij 
het apparaat worden de nodige soft¬ 
ware en parallelle kabel geleverd, 
evenals een rol thermopapier en een 
Engelstalige handleiding. Ook zit er 
een stift die als een gummetje voor 
het thermische papier werkt. 

Van de Universal scanner bestaat 
ook een Atari- en IBM-versie. Hij 
wordt in Nederland geleverd door Cat 
& Korsh tegen de prijs van ƒ 1399,- 

Inl: Cat & Korsh, 010 - 4507696 
J.B./H.S. 




Eenfull colour strip 
werd met de 
Universal Scanner 
gekopieerd. De 
zwart/wit afstelling 
werkt nauwkeurig. 
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De meeste Amiga-bezitters beschikken wel over het tekenpakket D’Paint. Hoe schrijft 
dit pakket zijn tekeningen weg naar schijf. Of meer algemeen: is er een standaard 
manier voor het bewaren van graphics- en muziekdata, etcetera. 


I.F.F-bestanden 


edden dat veel Amiga-bezitters zeggen, ’tja, daar heb ik wel eens van 
gehoord. Doe je dat in je koffie of zo?’. Nee dus. IFF staat voor Inter- 
change File Format wat zich vrij laat vertalen met 'Vrij Uitwisselbaar File 
Formaat’. Het is een, door Electronic Arts ontwikkeld, file-formaat. Binnen 
dit file-formaat kunnen verschillende soorten programma’s hun gegevens 
opslaan. Zo’n programma kan een tekenprogramma zijn, maar het mag ook 
een tekstverwerkingspakket of sample-programma zijn. Om er nu voor te 
zorgen dat programma’s ook weer te weten kunnen komen om wat voor 
soort gegevens het gaat is, gebruik gemaakt van een aantal vaste identi- 
fiers, een soort keywords, op vaste posities in de file. 



De structuur 

Hoe zit een IFF-file nu in elkaar (zie 
ook tabel 1)? Om te beginnen moet 
het programma, dat de file uit zal le¬ 
zen, weten dat het hier om een IFF file 
gaat. Een IFF file zal daarom ALTIJD 
beginnen met de letters ’FORM’. Hier¬ 
na volgt een longword waarin de leng¬ 
te van de file vermeld is. De eerste 8 
bytes, FORM + de lengte, is het zoge¬ 
naamde header blok. 

In de volgende 4 bytes wordt aange¬ 
geven om wat voor soort file het gaat, 
immers we praten hier over een 
gestandaardiseerd formaat. Een pro¬ 
gramma dat de file uitleest, moet er 
dan ook weer achter kunnen komen 
om wat voor IFF-file het gaat. Er zijn 
er meerdere. We noemen er hier 4, 
WORD, ILBM, SMUS en 8SVX. 


Tabel 1. Schematisch een IFF file. 


Offset 

Omschrijving 

0 

FORM 

4 

de lengte van de gehele 


file in bytes 

8 

het IFF type 

12 

chunknaam 

16 

lengte van de chunk in 


bytes 

20 

de eigenlijke ’chunk’ 

...etcetera... 


WORD is de indentifier voor een 
tekstverwerkingspakket. ILBM geeft 
aan dat de IFF-file een tekening is. 
SMUS wordt door bepaalde muziek- 
componeer (lichtelijk onhandig uitge¬ 
drukt!) programma’s gehanteerd. 
Tenslotte is er nog 8SVX. Dit wordt in 


de IFF-file gezet door sommige ge- 
luidsample programmatuur. 

Na het IFF-type volgen, afhankelijk 
van het IFF-type, enkele ’chunks’. Dit 
zijn gegevensblokken waarin data 
vermeld zijn over specifieke eigen¬ 
schappen van de file. Even een voor¬ 
beeld. Stel het gaat om een ILBM file. 
Hierin worden grafische gegevens 
weggeschreven (data van D’Paint 
o.a). Het programma dat de gegevens 
uitleest moet weten hoe hoog en 
breed het scherm is. Ze moet ook we¬ 
ten hoeveel kleuren en welke kleuren 
er gebruikt moeten worden. Dit soort 
gegevens worden opgeslagen in de 
zogenaamde ’chunks’ (zie tabel 2). 
De lengte van een ’chunk’ is variabel, 
immers de ’chunk’ waarin de 
beeldschermdata staan zal niet even 
lang zijn als de ’chunk’ waarin de 
kleurgegevens opgeslagen zijn. Het 
longword volgend op de chunknaam, 


bevat de lengte van de ’chunk’. Eerst 
maar even een voorbeeld. Afbeelding 
1 omvat een deel van ILBM-file zoals 
gegenereerd wordt door D’Paint. Het 
eerste longword bevat de letters 
'FORM'. Hierop volgend komt de 
lengte van de totale file. In het voor¬ 
beeld bedraagt de lengte $62CE, het¬ 
geen decimaal 25294 is. Het IFF-type 
is ILBM. Nu volgen de verschillende 
’chunks’. (Zie tabel 3) De eerste is 
BMHD. De lengte is $14. Dus $14 by¬ 
tes (=20 decimaal) verder volgt de 
volgende ’chunk’. Dit is CMAP. De 
CMAP ’chunk’ is $30 bytes lang. 
Daarna volgen nog enkele chunks ge¬ 
naamd CRNG. Dezen hebben voor 
ons nu even geen betekenis. Als laat¬ 
ste is er dan een van de belangrijkste 
chunks, de BODY-chunk. Hierin zijn 
de eigenlijke beeldschermdata opge¬ 
slagen. 
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Tabel 2. De’chunks’ 


Type 

Chunk 

Omschrijving 

WORD 

BODY 

De gegevens 
van een af¬ 
beelding 


COLR 

kleur van de 
tekst 


DOC 

soort tekst 


FOOT 

voetregel 


TABS 

tabafstanden 


PINF 

informatie 
over de af¬ 
beeldingen 


PARA 

paginalayout 


FSCC 

informatie 
over de tekst- 
kleur 


HEAD 

kopregels 


PCTS 

welke 

afbeeldingen 
in de tekst 

SMUS 

SHDR 

eigenschappen 
van het ge¬ 
luid (tempo, 
geluidsterk¬ 
te, etc) 


NAME 

naam van het 
muziekstuk 


(c) 

copyright 

vermelding 


AUTH 

auteursnaam 


ANNO 

aantekening 
bij het mu¬ 
ziekstuk 


TRAK 

definitie van 
het geluidska- 
naal 

ILBM 

BMHD 

grafische 

eigenschappen 


CMAP 

colortable 


BODY 

het eigenlijke 
'plaatje’ 

8SVX 

VHDR 

eigenschappen 
(type, tempo, 
octaaf, sterkte) 


NAME 

naam van 
het geluid 


(c) 

copyright 


AUTH 

auteursnaam 


ANNO 

aantekening 
bij het geluid 


BODY 

het 'eigenlijke’ 
geluid 


ATAK 

de ’attack’ 


RLSE 

de 'release' 


De duik in het diepe 

We hebben al een voorbeeldfile beke¬ 
ken. Dit was er slechts maar één. Hoe 
zien andere IFF files eruit. Hiervoor 


hebben we een kleine BASIC-routine 
geschreven. Typ deze in, en laat deze 
op verschillende IFF-files los. Het 
programmaatje spreekt hopelijk voor 
zichzelf. Het is maar een klein 
demonstratie programmaatje om te 
laten zien hoe in BASIC IFF-files ge¬ 
lezen kunnen worden. 

Waar het allemaal om ging 

Het uitgangspunt van dit artikel was 
een reactie van een lezer. Deze vroeg 
of er CLI-routines bestonden om een 
IFF-plaatje bij het opstarten op het 
beeldscherm te krijgen. Op de Work- 
bench schijf zult u géén commando 
aantreffen die zoiets doet, dus werd 
het tijd voor ons om onze luie herse¬ 
nen weer eens aan het werk te zetten. 
We gaan weer terug naar de tekenta¬ 
fel. We willen een ILBM-file inlezen. 
Hoe ziet een ILBM-file eruit? Als eer¬ 
ste chunk is er de BMHD. Dit betekent 
BitMap HeaDer. Hierin staan de vol¬ 
gende gegevens: 


Offset 

Type 

Omschrijving 

0 

Word 

breedte 

2 

Word 

hoogte 

4 

Wordx 

offset 

6 

Wordy 

offset 

8 

Byte 

diept'e 

9 

Byte 

masker 

10 

Byte 

compressie 
( 0=geen) 

11 

Byte 

- 

12 

Word 

transparant 

color 

14 

Bytex 

aspect 

15 

Bytey 

aspect 

16 

Word 

breedte van 
de bronpagina 

18 

Word 

hoogte van 
de bronpagina 


De tweede ’chunk’ die altijd in een 
ILBM file wordt aangetroffen is 
CMAP. Zoals we al eerder zagen wor¬ 
den hierin de ColorMap gegevens op¬ 


geslagen. Het gaat dus om de kleur- 
gegevens van de afbeelding. Hoe ziet 
CMAP er nu uit? 


Offset, Type & Omschrijving 


0 

Byterood, 

component 


van kleur 

1 

1 

Bytegroen, 

component 


van kleur 

1 

2 

Byteblauw, 

component 


van kleur 

1 

3 

Byterood, 

component 


van kleur 

2 

n 

Byteblauw, 

component 


van kleur 

n 


Als laatste belangrijke, de BODY 
’chunk’. In deze chunk staan, zoals 
we al hebben gezegd, de eigenlijke 
beeldscherm data. 

Er zijn nog enkele andere ’chunks’ zo¬ 
als CAMG, CCRT, etc. Wilt u hier en 
over andere zaken van ILBM files 
meer weten dan raden wij u aan hier¬ 
over een goed boek aan te schaffen. 
Denk hierbij aan 'het supergra- 
fiekboek voor de Amiga’ van Data Be- 
cker. 

Nu we alle gegevens hebben is het 
mogelijk een routine te schrijven 
waarme we het plaatje kunnen laden. 
Een probleem hierbij is dat BASIC ei¬ 
genlijk te traag wordt om dit karwei 
snel en efficiënt uit te voeren. We 
hebben daarom onze toevlucht tot C 
gezocht. 

Het programma 

Typ het programma in en compile en 
link het met de Aztek C compiler. Zorg 
ervoor dat tijdens het linken het voor- 
gecompilede programma jiff_save.o 
in de actuele directory staat. De routi¬ 
ne jiff_save.c staat op disk SYS2 in 
de directory ’jiff’. Deze dient u al in ge- 
compilede vorm, dus de ’.o’-file, in de 
actuele directory te zetten. 


0000:464F524D 

000062CE 

494C424D 

424D4844FORM..b.lLBMBMHD 

0010:00000014 

02800100 

00000000 

04020100. 


0020: 00000A0B 

028000C8 

434D4150 

00000030 

. CMAP...0 

0030:000000F0 

D0B0E0E0 

D0F00000 

F0000000 


0040: 9090E000 

00A06060 

00909060 

50506050 

.“,.,‘PP‘P 

0050: 60C0B0B0 

0000F000 

A0607070 

70806060 

‘.‘PPP-“ 

0060:43524E47 

00000008 

24780500 

00010405 

CRNG....$x. 

0070:43524E47 

00000008 

080E0280 

00010405 

CRNG. 

0080:43524E47 

00000008 

2B9E0060 

00010405 

CRNG... 

0090: 43524E47 

00000008 

395E0024 

00010405 

CRNG....9 A .$.... 

00A0:424F4459 
...enz... 

0000622E 

B100B100 

B100B100 

BODY..b. 


Afbeelding 1 . Een ILBM file 
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Als laatste 

We hopen hiermee weer een aantal 
mensen geholpen te hebben. U kunt 
de instructie ’Loadilbm’ in uw c-direc- 
tory zetten. Het is hiermee mogelijk 
uw met D’Paint getekende plaatjes bij 
het opstarten van de Amiga te laten 
afbeelden. Heeft u meer suggesties 
of vragen omtrent dit of andere onder¬ 
werpen), schroom dan niet te schrij¬ 
ven! 

Johan &johan 

Programma 1. Een IFF lezer 


INPUT "Hoe heet de file";naam$ 

OPEN naamS FOR INPUT AS 1 

form$=INPUT$(4,1) 

IF form$<>"FORM" THEN PRINT 
"Dit is geen IFF file": 

END 

FrmLen=0 
FOR 1=0 TO 3 

temp$=INPUT$(1,1) 

FrmLen=FrmLen+ASC(temp$)*(2 
56 A (3-1)) 

NEXT 1 

PRINT naam$;" is een IFF file" 
PRINT 

II_II 

PRINT "De lengte 
";FrmLen 

type$=INPUT$(4,1) 

PRINT "Het IFF Type 
"; type 
teller=4 
BTeller=0 

WHILE (teller =< (FrmLen-4)) 
BTelier=BTelIer+1 
temp$=INPUT$(4,1) 
teller=teller+4 

PRINT "-" 

PRINT "Chunknaam = 

";temp$ 

ChkLen=0 
FOR 1=0 TO 3 

temp$=INPUT$(1,1) 

ChkLen=ChkLen+ASC(temp$)*(2 
56" (3-1)) 

NEXT 1 

PRINT "Chunklengte 
";ChkLen 

teller=teller+4+ChkLen 
IF ChkLen < 256 THEN 
temp$=INPUT$(ChkLen, 1) 
ELSE 

Blocks=INT(ChkLen/256) 
Rest=ChkLen-(256*Blocks) 
FOR 1=0 TO Blocks 

temp$ = INPUT$(255, 1) 
NEXT 1 


temp$=INPUT$(Rest, 1) 
END IF 

IF BTeller > 5 THEN 
WHILE a$="" 
a$=INKEY$ 

WEND 

BTeller-0 
END IF 

WEND 

CLOSE #1 

Instructies bij Loadilbm 


Programmanaam : Loadilbm 
Programmeertaal : C 
Gebruikt programma : Aztek C v3.6a 
Opties 

cc loadilbm.c +L 
cc jiff_save.c +L 
In loadilbm.o jiff_save.o -Ic32 
Uitvoer : Loadilbm filenaam 



Programma 2. Loadilbm.c 


tinclude "stdio.h" 

#include "functions.h" 
tinclude "exec/types.h" 
#include 

"intuition/intuitionbase.h 

tinclude "graphics/gfxbase.h" 

#define IDVAL(a,b,c,d) 

((LONGa «24L | (LONG) b 
«16L ! c « 0 ld) 

#define ID_FORM 

IDVAL ('F' , 'O' , 'R' , 'M' ) 

#define ID_ILBM 

IDVAL('I','L','B' , ' M' ) 
#define ID_BMHD 

IDVAL('B', 'M' , 'H', 'D' ) 

#define ID_CMAP 

IDVAL ('C' , 'M' , 'A' , 'P' ) 

#define ID_BODY 

IDVAL('B','O', ' D' , ' Y' ) 

struct IntuitionBase 
*IntuitionBase=0 ; 
struct GfxBase *GfxBase=0; 
struct Screen *PScreen=0; 
struct NewScreen Scherm; 
struct IlbmBmhd = { 

UWORD Width,Height; 

UWORD x,y; 

UBYT.E . Depth; 

UBYTE Masking; 
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UBYTE Compression; 

UBYTE Unused; 

UWORD Transparant; 

UBYTE X Aspect,Y_Aspect; 

UWORD SrceWidth,SrceHeight; 

} MyBmhd; 

UBYTE 

*loc bmhd, *loc_cmap,kleuren 
[lOOT; 

ULONG colors; 

Quit(arg) 
char *arg; 

t 

printf("%s",arg); 
if(PScreen != NULL) 

CloseScreen(PScreen); 
if (GfxBase != NULL) 

CloseLibrary(GfxBase) ; 

if (IntuitionBase != NULL) 

CloseLibrary(IntuitionBase) 

exit (2 0) ; 

} 

BYTE GetByte(fp) 

FILE *fp; 

{ 

BYTE read; 

read=getc(fp); 
if(feof(fp)) 

Quit("EOF errorXn"); 
if(ferror(fp)) 

Quit("File errorXn"); 
return(read); 

) 

ULONG GetLong(fp) 

FILE *fp; 

{ 

ULONG read; 
read=0L; 

read=(ULONG)IDVAL(GetByte(f 
p),GetByte(fp),GetByte(fp), 
GetByte(fp)); 
return(read); 

} 

LoadPicture(name) 
char *name; 

{ 

FILE *fp; 

LONG id; 

void LookForPic() ; 

if((fp=fopen(name,"r"))==NU 
LL) 

Quit("Opgegeven plaatje 
is niet op schijf!\n"); 
id=GetLong(fp) ; 
if(id!=ID_FORM) 

Quit ("Geen IFF file, 

FORM errorXn"); 

LookForPic(fp); 
fclose(fp); 

} 

OverReadChunk(fp,len) 

FILE *fp; 

ULONG len; 

{ 

ULONG i; 
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BYTE dummy; 
for(i=0;i<len;i++) 
dummy=GetByte(fp); 
if (len&lL) 

dummy=GetByte(fp); 

} 

VOID LookForPic(fp) 

FILE *fp; 

{ 

BOOL body; 

LONG length,id,i; 

USHORT Mode; 

BYTE dummy; 
body=FALSE; 
length=GetLong(fp) ; 
id=GetLong (fp); 
if(id!=ID_ILBM) 

QuitC'Geen IFF fils, ILBM 
error\n"); 
while (! (body)) 

{ 

id=GetLong(fp); 
length=GetLong(fp) ; 
switch(id) 

{ 

case(ID_BMHD): 
loc_bmhd=(UBYTE 
*)(&MyBmhd); 

for (i=0;i<length; i++) 
*loc_bmhd++ = 

GetByte(fp); 

if(length&l) 

dummy=GetByte(fp); 

Scherm.LeftEdge=MyBmhd.y; 

Scherm.TopEdge=MyBmhd.x; 

Scherm.Width=MyBmhd.Width; 

Scherm.Height=MyBmhd.Height 


Scherm.Depth=MyBmhd.Depth; 
Scherm.DetaiiPen=0; 
Scherm.BI ockPen=0 ; 
Mode=NULL; 

if(MyBmhd.Width>400) 
Mode=Mode|HIRES; 

if(MyBmhd.Height>256) 
Mode=ModeiLACE; 

if(MyBmhd.Depth==6 
&& MyBmhd.Width<400) 
Mode=Mode|HAM; 

Scherm.ViewModes=Mode; 

Scherm.Type=CUSTOMSCREEN; 
Scherm.Font=NüLL; 

Scherm.DefaultTitle=(UBYTE 
*)"Commodore INFO 
LoadILBM"; 

Scherm.Gadgets=NULL; 

Scherm.CustomBitMap=NULL; 

if(! (PScreen= (struct 
Screen *) 

OpenScreen(SScherm))) 

Quit("Te 

weinig geheugen voor ILBM 
scherm\n"); 
break; 


case(ID_CMAP): 

loc cmap=kleuren; 
for(i=0;i<length;i++) 
*loc cmap4+ = 
GetByte (fp); 

colors=length; 
if(length&lL) 

dummy=GetByte(fp); 
ComputeCMap (); 
break; 

case(ID_BODY); 

ReadBody(fp); 

body=TRUE; 

break; 

default: 

OverReadChunk(fp,length); 
break; 



} 

ComputeCMap () 

{ 

LONG i,c,red,green,blue; 
loc cmap=kleuren; 
c=colors/3L; 
for (1=0;i<c;i + + ) 

{ 

red=(LONG)(*loc_cmap++ >> 
4) ; 

green=(LONG)(*loc_cmap++ 

» 4) ; 

blue= (LONG) (*loc_cmap++ 

>> 4 ) ; 

SetRGB4(&PScreen->ViewPort, 
i, red, green, blue); 

} 


UBYTE *UnPackRow(bt,1,fp) 

UBYTE *bt; 

UWORD 1; 

FILE *fp; 

{ 

BYTE n; 

UWORD i,j,k,count; 
count=0 ; 

if(MyBmhd.Compression==l) 

{ 

while(count<l) 

{ 

n=GetByte(fp); 
if (n<0) 

{ 

if(n>-128) 

{ 

k=GetByte (fp) ; 

for(j=0;j<((—n)+1);j++) 

( 

*bt++ = k; 
count++; 

} 

} 

} 

if(n>=0) 

{ 

for(j=0;j<(n+1);j++) 

{ 

*bt + +=GetByte(fp) ; 


count++; 


} 

) 

} 

if (MyBmhd. Compression==0 ) 

{ 

for (i=0;j<l;j++) 

*bt++=GetByte (fp); 

} 

return(bt); 

) 


ReadBody(fp) 

FILE *f p; 

{ 

UWORD i,j,x,y; 

UBYTE *maps[7],*dummy; 

x=(MyBmhd.Width>>3); 

y=MyBmhd.Height; 

for ( j=0;j<MyBmhd.Depth;j + + ) 

maps[j]=PScreen->BitMap.Pla 
nes [ j]; 

for(i=0;i<y;i++) 

{ 

for ( j = 0;j<MyBmhd.Depth; j + + ) 

maps[j]=UnPackRow(maps[j] , x 
, fp) ; 

if(MyBmhd.Masking==l | j 
MyBmhd.Masking==3) 

dummy=UnPackRow(kleuren,x,f 
p); 

} 


main (argc,argv) 

SHORT argc; 
char *argv[]; 

i 

int i; 

char *MouseL=(char 
*)OxbfeOOl; 

if ( ! (IntuitionBase=(struct 
IntuitionBase *) 

OpenLibrary("intuition.libr 
ary",0L))) 

Quit("Geen 

intuition.library\n" ) ; 
if (! (GfxBase=(struct GfxBase 


OpenLibrary ("graphics.libra 
ry",0L))) 

Quit("Geen 

graphics.library\n"); 
if(argc!=2) 

QuitC'Syntax van LoadILBM: 
LoadILBM filenaam\n"); 
LoadPicture(argv[1]); 

while((*MouseL & 

0x40)==0x40); 

CloseScreen(PScreen) ; 
CloseLibrary(GfxBase) ; 
CloseLibrary(IntuitionBase) ; 

} 
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